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Preface 


“The PTA at our school has given us two microcomputers. Since I am a 
math/science teacher, the principal said I should use them in my classes. I 
had one course in Fortran programming about five years ago; I know very 
little about computers and absolutely nothing about how to use them with 
instruction. I am aware that they are being used as effective teaching tools. 
But how? What do I need to know to get started?” 

An Inservice Teacher 


“As part of an education course I’m taking, I recently sat in on a school 
board meeting of our district. The agenda included a presentation by a man 
demonstrating the instructional uses of microcomputers. The man’s assistant, 
who operated the microcomputer, loaded and ran programs and, in general, 
demonstrated the system, was his six-year-old daughter! It is obvious to me 
that I’ll be facing many young students who are using microcomputers at 
home and in the school. Even more obviously, I’ll need to know something 
about the different uses of micros: What they can and cannot do, how they 
are programmed, how these programs are made and tested, and so on. But 
I don’t want to become a “computer scientist.” I want to know the funda- 
mentals that will let me make practical use of a microcomputer in an instruc- 
tional setting.” 

A Preservice Teacher 


This book is designed for teachers who find themselves in situations similar 
to those cited in the two examples above. It is based upon a university course in 
which hundreds of teachers in grade levels elementary through college have been 
introduced to the fundamentals of the instructional use of computers and have 
successfully designed and developed programs for use in their own areas of 
interest. 

This book is not designed to teach general computer literacy: There is little 
mention of the history, architecture, or use of computers in society. Nor is it a 
text to train computer programmers: Several language statements common to 
programming texts are omitted because their application is not typical of the 
instructional use of computers. 


Preface 


This is a practical book for the teacher who needs to know the fundamentals 
of the BASIC programming language for the Apple microcomputer and how to 
apply them to the design and development of instructional computing programs. 
It has been our experience that, given these fundamentals, teachers have the 
proficiency to expand upon this base and develop efficient programs designed to 
meet their specific needs. 


The text consists of nine chapters and four appendices and is divided into 
two parts. In Part One, the first four chapters discuss the BASIC programming 
language statements and commands common to five areas of instructional com- 
puting use: problem solving, drill and practice, tutorial dialog, simulation and 
gaming, and testing. Chapter 5 summarizes and reviews these statements and 
their applications. Chapter 6 gives relatively short example and model programs 
in each of these five areas. Chapter 7 discusses and demonstrates the simple use 
of graphics as an instructional technique. 


In Part Two, Chapters 8 and 9 discuss the specific steps needed to first design 
and then develop instructional computing programs. The appendices include 
instructions for “booting up” the microcomputer; instructions for loading, edit- 
ing, and saving programs; commands and statements unique to the Apple micro- 
computer; answers to questions and problems given in the chapters; and an 
annotated bibliography of journals and other publications dealing with instruc- 
tional computing. 


As a matter of personal preference, some readers may wish to study Chapters 
8 and 9 on design and development prior to the chapters on BASIC. We believe, 
however, that practical design and development can come only after the working 
guidelines for the language are established. Thus, BASIC fundamentals are pre- 
sented before the discussion of design fundamentals. 


Twenty-six programs ranging from simple introductory examples to more 
complex instructional computing application models, plus a “keyword” subrou- 
tine and a program “menu” routine are presented in the text. Professors adopting 
the text may write to the publisher for a free copy of the software diskette, which 
contains these programs along with solution programs to selected problems in 
the text. On request, the publisher will make copies of the diskette available to 
students for $11.95 each. 


The authors are indebted to many people for the development of this book. 
Only with the critical review of the manuscript by Sister Mary K. Keller of Clark 
College, Professor Edward B. Wright of Western Oregon State College, Professors 
Dennis Harper and Jeffrey Marcus of the University of California at Santa Bar- 


bara, the encouragement of Mr. James F. Leisy, Jr., of Brooks/Cole Publishing 
Company, and the excellent copy editing of Mr. Trevor Grayling, could this book 
have been published. Production was ably directed by Mr. Greg Hubit of Greg 
Hubit Bookworks. Additional assistance was provided by Mr. Morgan Watkins 
of the University of Texas at Austin, Mr. Carey Van Loon of California State 
College, San Bernardino, and Mr. Larry Hall. Most of all, we wish to gratefully 
acknowledge the contribution of the 708 students who have provided direct input 
and response during the development stages of this book. 
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Introduction 


This book contains nine chapters that describe an approach to using a com- 
mon programming language, BASIC, for the design and development of instruc- 
tional computing programs for Apple microcomputers. These chapters discuss 
certain fundamentals of the language and the design and developmental processes 
that provide a foundation for the production of instructional computing programs. 

There are more than one hundred books available that teach BASIC (the 
Beginners’ All-purpose Symbolic Instruction Code, developed by John G. Kemeny 
and Thomas E. Kurtz at Dartmouth College). Although most of these books are 
very thorough in describing BASIC, they usually emphasize problem-solving 
applications. Our emphasis, on the other hand, is on instruction in the use of 
BASIC in the design and development of materials for instructional computing, 
which we now proceed to define. 

Simply put, any use of computing techniques within the classroom may be 
broadly defined as instructional computing (sometimes known as computer-assisted 
instruction). Specifically, it includes: 


1. Problem solving, in which computer programs are written to solve dis- 
cipline-oriented problems. 


2. Drill and practice on fundamental concepts using computer programs in 
a given discipline. 


3. Tutorial dialog, in which computer programs provide “tutorlike” assis- 
tance in pointing out certain types of mistakes, providing review if needed, 
skipping areas in which proficiency is shown, and so on. 


4. Simulation, in which computer programs allow manipulation and inter- 
pretation of certain elements related to given physical or social phenom- 
ena without the constraints of time, space, equipment, and environ- 
mental or logistical limits. 


5. Testing, in which computer programs ask the questions, check the answers, 
and record the performance. 


For our purposes, the term instructional computing is used to include all of these 
applications. 


Introduction 


The Use of BASIC An introduction to some of the fundamentals of 

BASIC is provided in this book. This introduction is not intended to produce 

highly accomplished and skilled programmers. Rather, it gives only the funda- 

mentals needed to write fairly simple programs for instructional computing appli- 
cations. Model programs are described that illustrate this use. 

Although many different programming languages may be used in instruc- 
tional computing, there are several reasons for using BASIC: 


I. It is easy to learn and easy to use. 


2. Itis acommon interactive language (see Section 1.3), available on large 
computer systems costing millions, medium-sized systems costing 
hundreds of thousands, minisystems costing tens of thousands, and small 
systems (commonly called micros or personal computers) costing a few 
hundred to a few thousand dollars. 


3. It may be used in all applications of computer-based instruction. 


4. It is the introductory computer language used in most secondary and 
many elementary schools. 


5. It is the most common language of microcomputers—an area of com- 
puter technology that is making the major impact on education in this 
decade. 


Design Following the introduction to BASIC, a method for designing 
instructional materials called the systems approach is outlined. This approach, in 
essence, is a logical, step-by-step process for identifying the tasks and activities 
needed in the production of validated instructional materials. 


Development The development of instructional computing pro- 
grams by the reader is the ultimate goal of this book. Initially, the development 
phase overlaps the design phase in which paper, pencil, and brain power are the 
principal ingredients. This involves outlining the rationale, objectives, and 
instructional sequence of one or more instructional computing programs. After 
this is outlined on paper, it is translated into the BASIC programming code. 
Following this, it is necessary to spend considerable time at a computer entering, 
testing, and refining what has been designed and developed on paper. 

As a final introductory note, it should be emphasized that this book assumes 
no previous experience whatsoever with computers. On the other hand, it is not 
designed to provide detailed information on computers in general or how they 
operate. Rather, it introduces the ways and means by which the Apple® com- 
puter* may be used within the instructional process. 

Now, let us begin by getting down to the BASICs... 


*Apple is a registered trademark of Apple Computer, Inc. 
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“Nothing in life is to be feared. It is only to 
be understood.” 
—Marie Curie 


“In certain trying circumstances, urgent circumstances, 
desperate circumstances, profanity furnishes a relief 
denied even to prayer.” 

—Mark Twain 
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Think About This (for Eun) 


Rearrange the letters of NEW DOOR to form one word. [Note: Answers to Think 
About This for Fun questions may be found in Appendix C.] 


Think About This (Seriously ) 


Does a computer possess intelligence? 
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1.1 OBJECTIVES 


For the successful completion of this chapter, you should be able to: 


La) 


List five general applications of computer-based instruction (Introduction). 
2. Define two ways in which computers may be accessed (Section 1.3). 


3. List the steps necessary to “boot up” (power up) a computer system 
(Appendix A). 


4. State how a BASIC program may be entered on that system after the 
booting up (Section 1.5.5 and Appendix A). 


5. Define what (not who) composes a BASIC program (Section 1.4.1). 5 
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6. Distinguish between BASIC statements and commands (Sections 1.4. 1— 
1.4.2). 


7. Define the action of the following BASIC commands: NEW, RUN, LIST, 
and SAVE (Section 1.4.2). 


8. Define and give at least one example of both a Numeric variable and a 
String variable (Section 1.4.3). 


9. Describe the use of commas and semicolons in BASIC for purposes 
other than punctuation (Section 1.4.4). 


10. Define the purpose and give at least one example of the following 
BASIC statements: PRINT, INPUT, LET, and END (Sections 1.5.1—1.5.4). 


11. Describe three simple techniques for editing BASIC programs (Section 
1.6 and Appendix B). 


1.2 COMPUTER USE: A BRIEF HISTORY AND 
RATIONALE 


Electronic computers have been in use since the late 1940s. In the period from 
1948 to 1965, they were used primarily for what their name implies: computing 
or “number crunching” as it is sometimes called. Starting about the mid-sixties, 
however, educators began experimenting with applications of computers in the 
instructional process that involved more than just computing. 

In the decade following, this use expanded, and, just as computers have 
become ingrained in our society, instructional computing is becoming common- 
place in our schools. (These points may be emphasized by the fact that since 1975 
over 1,500,000 microcomputers have been purchased, many for home or school 
use.) 

Now, it is very important to recognize that computers are not replacing teach- 
ers! The fundamental principle underlying the use of computers—regardless of 
the profession using them—s that they are incredibly fast and accurate tools that 
allow people to do certain activities in a manner not previously possible. Thus, 
the use of computers in instruction is basically that of supplemental applications. 
Computers allow teachers and students to do certain educational processes faster, 
with greater accuracy, and in a manner not possible before they came on the 
scene. 

Computer programs can be very helpful in providing patient, routine drill 
on fundamental concepts, in generating and grading tests in a given discipline, 
and in many other applications. In any of these cases, the most effective programs 
are those designed by teachers—the professionals in the field who are aware of 
what is to be taught and how to teach it. As yet, there is no computer program 
that can lead an intelligent and sensitive discussion on any given abstract concept. 
There are no teachers out of a job because they have been replaced by a computer! 

6 That is something worth remembering. 
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1.3 ACCESS TO COMPUTERS 


A computer is an extremely fast and accurate processor of data. In the simplest 
sense, most common computer systems may be viewed as four units connected 
electronically: 


1. An input unit (such as a computer terminal keyboard) through which 
data is entered. 


2. A processor unit, which stores the data input and processes it electronically. 


3. Am output unit (such as a computer terminal screen or printer) which 
shows the results of processing the data input. 


4. A data storage/retrieval unit (such as a disk drive) which stores data on, 
and retrieves data from, some magnetic medium (such as a floppy disk). 


Figure 1.1 shows these units in block form. 


Until the late 1960s, the primary means of access involved punching program 
statements, data, and commands onto computer cards. This “batch” of cards was 
read (input) by a card reader and eventually a printout (output) of the program 
“run” was retrieved. This type of access is commonly referred to as batch access 
or batch processing. 

Since the early 1970s, there has been a very strong trend toward accessing 
computers via computer terminals. In the simplest sense, a terminal consists of 
a keyboard, similar to that of a typewriter, for input of statements, data, com- 
mands, and so forth, with output displayed either on a cathode ray tube (CRT) 
screen or paper (hardcopy) at the terminal. This type of access is known as 
interactive (a user is interacting directly with the computer or a program) or 
timesharing (there may be literally scores of terminals in remote locations “shar- 


Input unit 
(keyboard) 


Processor 


Figure 1.1 
Components of a 
computer system. 


Output unit 
(TV monitor) 


Output unit 
(printer) 


Storage unit 
(disk drive) 
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Figure 1.2 

APPLE II system: 
keyboard, monitor, 
thermal printer, and 
disk drives. 
(Courtesy of Apple 
Computer, Inc.) 


i 
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ing the time” of one computer). In these cases, the terminal is connected to the 
computer via standard telephone lines. 

Microcomputers are an exception to this. Here, the computer, terminal, dis- 
play, and other components are usually provided as a unit small enough to fit 
on a desk top (Figure 1.2). There are no telephone connections or sharing of 
computer time. This makes the unit more portable, less prone to equipment 
failure, less expensive, and, consequently, well suited to the classroom. 

For our use here, only microcomputers are discussed. The examples and 
assignments in the text assume that the reader has access to an APPLE II micro- 
computer with AppleSoft BASIC, one floppy disk drive, a video monitor or tele- 

8 vision, and at least 48K of random access memory (RAM). 
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It is very important that the reader, particularly the reader new to micro- 
computers, become familiar with the processes needed to access (use) the system. 
This first involves gaining confidence in booting up the system. Refer to Appendix 
A for a step-by-step procedure to accomplish this. 


1.4 A BIT ABOUT BASIC BEFORE BEGINNING 


There are a few general points about BASIC that should be made early. Consider 
these as some of the “rules of the game” to follow for BASIC. 


1.4.1 Statements 


A BASIC program is composed of BASIC statements. These are words (often 
verbs), such as PRINT, INPUT, and so on, that make some degree of sense to both 
a user and the computer. (Of course, the computer has been programmed by 
people to “understand” these words.) 

BASIC statements are always numbered, generally by tens (10, 20, 30, etc.). 
They could be numbered 1, 2, 3, and so on, but no additional statements could 
be inserted into the program, say, between statements numbered | and 2. State- 
ments can be inserted between lines numbered 10 and 20 (11, 12, etc.), and so 
it is possible to add as many as 9 lines (statements) between 10 and 20. Thus, 
the numbering convention is usually in increments of ten. 


1.4.2 Commands 


BASIC commands issue specific information to the computer system about 
the program. For example, the command NEW instructs the system to prepare 
for anew BASIC program to be entered at the terminal by “erasing” any program 
statements that are currently in the system’s memory. The command LIST will 
produce a listing of the BASIC statements comprising the program in memory. 

The command RUN executes (RUNs) the BASIC statements in their increas- 
ing numerical sequence unless one of those statements transfers the execution 
to another part of the program. (This is called branching and will be discussed 
later.) The command SAVE (filename) instructs the system to save the program 
in memory under the name (filename). The program is stored on a floppy diskette 
placed in the disk drive. (The (filename) may be just about any name the user 
wishes, but short, descriptive names should be considered.) 


1.4.3 Variables 


Nearly all BASIC programs described in this text will include values that may 
vary as the program is executed (RUN). These values, which are called variables, 
could be students’ names, test scores, responses for correct or incorrect answers, 
and so forth. 9 
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In BASIC, a variable may be represented (named) by any letter of the alpha- 
bet (A—Z) or any letter and any number up to 9 (A1,M8,W3,Z9, etc.). The APPLE 
microcomputer will allow variables to have even longer names that are more 
descriptive of what they represent: FIRSTTEST, NUMBEROK, AVERAGE, and so 
on. However, only the first two letters are used internally by the APPLE system. 
Consequently, AVERAGE and AVENUE represent the same variable; so care must 
be used in naming the variables in a program. 

For our purposes, there are two types of variables: 


1. Numeric. The value of the variable is always numeric: 1.0, 2, 110.5, 
— 3.1365, and so on. 


2. String (or alphanumeric). The value of the variable may be alphabetic 
characters or numbers or a mixture of both. This value is always enclosed 
in quotation marks: “ABCDEF”, “CS395T”, “JOHN JONES”, “NOW IS 
THE TIME”, and so on. 


A dollar sign ($) is added to the name of the string variable to distinguish it 
from a numeric variable. N$, Al$, Z9$, and FIRSTNAMES$ all represent string 
variable names, while N, Al, Z9, and FIRSTTEST all represent numeric variable 
names. 


Examples: A = 123 


(The numeric variable named A has a value of 123.) 
A$ = "ABC" 


(The string variable named A$ has a value of ABC.) 


1.4.4 Commas (,) and Semicolons (;) 


Commas and semicolons have specific uses in BASIC. They can be used in 
the normal fashion as punctuation marks, or they can be used to instruct the 
system to display information in special ways. For example, every so often in a 
BASIC program there may be a need to have information printed in columns. 
Suppose a list of student names, test score averages, and final numeric grades 
were to be displayed (printed). Assume the values are stored in the variables N$, 
T, and F, respectively. The BASIC statement 


PRINT N$oToF 


would display this information in columns 16 spaces apart from the start of the 
first value to the start of the second value, and so on. Here, the comma acts as 
an automatic tabulator. Thus, any line can have ‘‘fields’’ of display starting at 
column 1, column 17, and column 33. This can be useful when certain types of 
information are to be displayed. (See, for example, Sections 1.5.1 and 1.5.3.) 
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If one wished the above information to be close packed (printed without any 
separating spaces), the semicolon would be used in place of the comma. In 
essence, then, the comma, when not used as a punctuation mark, instructs the 
system to tab 16 spaces before printing; similarly, the semicolon instructs the 
system to not skip any spaces before printing. 

These and other examples of their use will be shown shortly, but for now 
be aware that the comma and semicolon can have special meanings when not 
used as punctuation. 


1.5 BASIC STATEMENTS FOR THIS CHAPTER 


1.5.1 Statement PRINT 


Purpose Displays (PRINTs) information at the computer terminal. This 
information may be text, numeric variable values or string (alphanumeric) var- 
iable values (see Section 1.5.3). When text is to be displayed, it must be enclosed 
in quotation marks (‘’) in the PRINT statement. 


Example: PRINT “HELLO. WHAT’S YOUR FIRST NAME" 
Result of execution: HELLO. WHAT’S YOUR FIRST NAME 


Example: 10 A = 123 
20 AS = "ABC" 
30 PRINT A»rAS 


Result of execution: 123 ABC 
<———16 spaces—> 


1.5.2 Statement INPUT 


Purpose Allows numeric or alphanumeric information to be entered 
(INPUT) into a BASIC program during its execution. The information is entered 
through the terminal keyboard and is assigned to a variable specified by the 
program author. The variable will have the assigned value until changed by 
another INPUT or LET statement for that variable. 


Examples: INPUT N (for numeric information) 
INPUT N¢$ (for alphanumeric information) 


Note: Most BASIC systems automatically display a question mark (?) when 
the INPUT statement is executed. In computer terms, the question mark is called 
the input indicator or prompt. Program execution is stopped until the RETURN 
key is depressed. Also, note that the use of quotes, discussed earlier for string 
variables in Section 1.4.3, is not required when string information is INPUT. The 
dollar sign instructs the system that any input will be assigned as a string variable. 


I] 
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Program example: 10 PRINT "HELLO. WHAT’S YOUR FIRST NAME" 
20 INPUT N$ 
30 PRINT N$5" IS A NICE NAME." 
40 END 


Result of execution: HELLO» WHAT’S YOUR FIRST NAME 
?SAMMY (SAMMY is typed and the RETURN key 
depressed.) 
SAMMY IS A NICE NAME. 


1.5.3 Statement LET 


Purpose Assigns values to variables. This action may be “‘direct,’’ as in 

LET X = 20 (X would have a value of 20), or it may be “‘indirect,’’ as in LET X 

= (2*Y)/3 (X would have a value equal to the result of dividing 3 into the product 

of 2 times the value of Y). The “’*’’ is the symbol (character) used for multipli- 

cation; the ‘‘/’’ is the symbol used for division. It may also be used to assign 
alphanumeric values, as in LET A$ = ‘“HERE’S THE ANSWER!” 

Note: In most BASIC systems, the term LET is optional; so the statement X 

= 20 is equivalent to LET X = 20. Also, note here that assignment to a string 

variable requires the use of quotes. The string content must be enclosed in quotes. 


Example: 10 LET NAMES = "JOHN JONES" 
20 LET TEST1 = 100 
30 FINALTEST = 89 (Note: LET is omitted.) 
40 PRINT "STUDENT" »"TEST 1"» "FINAL" 
SO PRINT "------- Ue eae eee " 
6O PRINT NAME$,TEST1 »FINALTEST 
70 END 

Result of execution: STUDENT TEST 1 FINAL 

JOHN JONES 100 B89 


What would happen if the commas in statements 40-60 were replaced 
by semicolons? (Note: Answers to this and other questions found within the 
text are supplied under their respective chapter and section numbers in Ap- 
pendix C.) 


1.5.4 Statement END 


Purpose Ends program execution. On many systems, it is not required. 
However, in the interest of good programming practice, it should be the last 
statement in any program. 


1.5.5 PROGRAM I: Years-to-Days Conversion 


The statements discussed thus far can be combined to make a program. But 
what is the program to do? Some stage of program design must be defined that 
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illustrates the use of these statements. Arbitrarily, then, the program is designed 
to: 


a] 


Ask for a person’s name (PRINT). 

Store the name entered in a string variable (INPUT). 
Greet that person with the name entered (PRINT). 

Skip a line so that the screen is not too crowded (PRINT). 
Ask for the person’s age in years (PRINT). 

Store the age entered in a numeric variable (INPUT). 
Convert the age in years to the age in days (LET). 

Display this age in days (PRINT). 

End the program (END). 


o SN ADA VY RY N 


Note: The sample interaction shows a ‘session’ at a microcomputer. It includes 
creating a NEW program, entering the program statements, SAVEing the pro- 
gram, RUNning the program, LISTing the program, LISTing a single statement 
(LIST 40), LISTing statements 10 to 30 inclusive (LIST 10,30), and LISTing a 
nonexistent statement (LIST 120). 

All this is shown in the sample as it would appear on an APPLE system 
monitor, which limits each display line to 40 characters. Any remaining char- 
acters on a given line ‘‘wrap around” and are shown on the next line displayed. 
Although this makes absolutely no difference to the APPLE system (a line may 
contain as many as 255 characters), it is confusing when read by a person. To 
clarify this, another listing of PROGRAM | is shown below the actual session. 
This and all listings of subsequent programs in this text are in an 80-column 
format. Be aware that the listings will look different when viewed on the monitor 
display. 


Refer to the listing and run of PROGRAM I. 


JNEW 

J1i0 PRINT "HELLO. WHAT‘’S YOUR FIRST NAME" 
120 INPUT N$ 

130 PRINT "“HOWDY»s "sN$% 

J40 PRINT 


J50 PRINT "TELL ME..+WHAT IS YOUR AGE IN YEARS" 


Statement 10 displays a greeting and 
asks for user’s first name. 


Statement 20 automatically displays a 
“2” and waits for input. Whatever is 
typed is assigned to N$ when RETURN 
is depressed. 


Statement 30 displays ‘‘“HOWDY, ” 
(Why the blank space?) and value of 
N$. 


Statement 40 prints a blank line, and 
statement 50 requests the user’s age in 
years. 
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J60 INPUT A 

170 D=A*365 

J80 PRINT "WELL+ "SN$5",» YOU HAVE BEEN BREATHING" 
J90 PRINT "FOR AT LEAST "sD5" DAYS!" 

J100 PRINT»"BYE-BYE>s "5N$% 


J110 END 


JSAVE PROGRAM 1 

JRUN 

HELLO. WHAT’S YOUR FIRST NAME 
?SAMMY 

HOWDY» SAMMY 


TELL ME..+»-WHAT IS YOUR AGE IN YEARS?21 
WELL» SAMMY» YOU HAVE BEEN BREATHING 
FOR AT LEAST 7665 DAYS! 

BYE-BYE» SAMMY 


JLIST 


10 PRINT "HELLO. WHAT’S YOUR FIR 
ST NAME" 

20 INPUT N$& 

30 PRINT "HOWDY>s "sN$% 

40 PRINT 

YO PRINT "TELL ME..»-WHAT IS YOUR 
AGE IN YEARS"; 

60 INPUT A 

70 D = A * 365 

BO PRINT "WELL»> "SN$5"5 YOU HAVE 
BEEN BREATHING" 

J0 PRINT "FOR AT LEAST "3D35" DAY 
of" 

100 PRINT »"BYE-BYE» "SN% 

110 END 


JLIST 40 

40 PRINT 

JLIST 109530 

10 PRINT "HELLO. WHAT’S YOUR FIR 
ST NAME" 


20 INPUT N$ 
3O PRINT "HOWDY» "SN% 


Statement 60 automatically displays a 
“2?” and waits until some number is 
typed and RETURN is depressed. This 
number is assigned to variable A. 


Statement 70 assigns a value to D equal 
to the value of A times 365 (converting 


years to days). 


Statements 80 and 90 display values of 
N$ and D, along with appropriate text. 


Statement 100 skips 16 spaces and 
displays a farewell. 


Statement 110 ends program execution. 
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JLIST 120 

J 

JLIST 

10 PRINT "HELLO. WHAT’S YOUR FIRST NAME" 

ZO INPUT N$ 

30 PRINT "HOWDY>s "sN% 

40 PRINT 

90 PRINT "TELL ME..-+-WHAT IS YOUR AGE IN YEARS"; 
60 INPUT A 

70 D A * 365 

BO PRINT "“WELL» "SN$5", YOU HAVE BEEN BREATHING" 
90 PRINT "FOR AT LEAST "Ds" DAYS!" 

100 PRINT »"BYE-BYE» "5N$% 

110 END 


] 


1.6 EDITING BASIC PROGRAMS 


Most BASIC systems have some means by which programs may be edited. For 
example, a PRINT statement with a misspelled word or typographical error may 
be corrected by editing. Three simple editing techniques are: 


I. 


Left arrow key ( < ). A typographical error may be corrected by back- 
spacing the cursor over the error, entering the correction, and then com- 
pleting the line being typed. This type of editing can be used only before 
the RETURN key is depressed for the line being entered. 


Retyping the statement. A statement may be replaced by simply retyping 
the line number followed by the correct statement. 


Deleting lines. A statement may be deleted entirely by typing the line 
number only and then depressing the RETURN key. Several lines may 
be deleted by typing DEL, followed by the beginning and ending line 
numbers to be deleted. For example, the command: 


DEL 20750 


would delete line numbers 20—50, inclusive. 


Although these are only three simple techniques for editing, they will get 
you started and can be extremely useful. As you become more proficient and at 
ease with the system, you should become familiar with the more advanced edit- 
ing techniques described in Appendix B (section B.9, page 221). 
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1.7 POSERS AND PROBLEMS 


(Note: Many of the ‘‘Posers and Problems” given in this book may be entered 
and run as programs. Where possible, this should be done, since it will be of 
help in arriving at the solutions. As a last resort, or to check your work, refer to 
Appendix C. A * indicates a more difficult problem.) 


l. 


Correct any errors found in the following BASIC statements: 


10 PRIMT "HELLO 

20 PRIMT WHAT‘’S YOUR HEIGHT IN INCHES" 
30 INPUT 

40 M = 2.54 * 

20 PRINT YOU ARE M CENTIMETERS TALL! 
60 FINISH 


What is the value of X in each of the following if Y = 6? 


20 

(2#Y)/3 

Y 

(2#Y)/ (OY) 
(Y#Y)/(Y#2) 


am KK KK 
| 


What is the purpose of the semicolon in statements 30, 80, and 90 of 
PROGRAM 1? What would substituting a comma for the semicolon 
produce? What is the purpose of the comma in statement 100? 


Note the different positions of the two question marks in the sample 
RUN of PROGRAM 1. What caused the difference? (Hint: Carefully 
examine statements 10 and 50.) 


Modify PROGRAM 1 to output the user’s age in “‘heartbeats’’ (use H 
as the variable), assuming a pulse rate of 72 beats per minute (and 60 
minutes per hour, 24 hours per day). 


What would result if the following statements were executed? 


10 AS = "NAME" 

20 BS = "SCORE" 
30 C$ = "AVERAGE" 
40 PRINT A$ +BS +C$ 
90 END 


7. What would result if the following statements were executed? (Assume 


10. 
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you input your own name and weight.) 


10 PRINT "FIRST NAME" 5 

20 INPUT N$ 

30 PRINT "WEIGHT IN POUNDS" s 

40 INPUT P 

90 K = P/2,.2 

60 2 = P * 16 

70 PRINT+"WOWs "SNS5"!" 

80 PRINT "THAT’S ONLY "sKs" KILOGRAMS,» BUT» GEE>," 
90 PRINT»"IT‘S "325" OUNCES!" 

100 END 


Write a program that converts a temperature in Celsius to a temperature 
in Fahrenheit. The user should enter the temperature for conversion 
from the keyboard. Hint: The formula for conversion is F = (C * 9/5) 
7 oe: 


Write a program that converts two variables, cups and ounces, into 
ounces. For example, 2 cups and 3 ounces equal 19 ounces. 


Write a program that inputs two string variables, first name and last 
name, and prints out a salutation of your choice using the person’s full 
name. 
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“Even if you're on the right track, you'll get run over 
if you just sit there.” 
—Will Rogers 


“Man's mind stretched to a new idea never goes back to 
its original dimensions.” 
—Oliver Wendell Holmes 


Think About This ( for Fun) 


What do you sit on, sleep on, and brush your teeth with? 


Think About This (Seriously) 


18 Can computer programs teach? 


Now Tell It Where To Go 
and What To Do with It 


2.1 OBJECTIVES 


For the successful completion of this chapter, you should be able to: 


I. 


Define the purpose and give at least one example of each of the BASIC 
statements REM, GOTO, IF-THEN, and ON-GOTO (Sections 2.2.1—2.2.4). 


Define the purpose and give at least one example of each of the BASIC 
functions RND(1) and INT (Section 2.3). 


Define the purpose of the BASIC commands LOAD and DELETE (Section 
2.4). 


Alone and unafraid, boot up a microcomputer system (Appendix A). 


Design, enter, and RUN a BASIC program that includes the statements 
discussed in Chapter 1. 
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2.2 BASIC STATEMENTS FOR THIS CHAPTER 


2.2.1 Statement REM 


Purpose Used as a REMinder or REMark to document the listing of 
BASIC programs. That is, REM gives a means by which internal notes may be 
made in the program listing. These notes will provide information about the 
program, such as which variables are used and their purpose (commonly called 
a dictionary of variables), and will identify special program routines or strategies, 
separating the program into segments so that the program listing is easy to read. 
The REM statement is not executed during a program run; thus, the only time 
these are displayed is after a LIST command. 


Example: REM THE VARIABLE ‘A’ IS THE AGE IN YEARS 


2.2.2 Statement GOTO 


Purpose Unconditionally transfers program execution to the specified 
statement number. 


Example: GOTO 100 


2.2.3 Statement IF-THEN 


Purpose Conditionally transfers program execution to the specified 
statement number if, and only if, the defined variable relationship is true. 


Examples: IF X = 1 THEN 100 
(Transfer to statement 100 will occur if X is equal to 1.) 
IF ¥ <> 2 THEN 100 


(Transfer to statement 100 will occur if the value of Y is not equal to the value 
of Z.) 


IF A <= 2 THEN 100 
(Transfer to statement 100 will occur if the value of A is less than or equal to 2.) 
IF A >= 2 THEN 100 


(Transfer to statement 100 will occur if the value of A is greater than or equal to 
2.) 


IF AS = "YES" THEN 100 


(Transfer to statement 100 will occur if the value of A$ is equal to the character 
string YES.) 
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2.2.4 Statement ON-GOTO 


Purpose Transfers program execution to a specified statement number 
based on the truncated value of a variable or numerical relationship. 


Example: ON X GOTO 100+300600 


(Transfer to statement 100 will occur if the truncated value of X is 1; transfer to 
statement 300 will occur if this value is 2; transfer to statement 600 will occur 
if this value is 3. If X is less than 1 or greater than 3 in the example above, 
execution continues with the first statement following the ON-GOTO.) 

This example of the ON-GOTO is equivalent to the following three IF-THEN 
statements: 


IF X = 1 THEN 100 
IF X = 2 THEN 300 
IF X = 3 THEN 600 


By using the ON-GOTO, the same instructions can be given to the system by just 
one statement: 


ON X GOTO 1007300 +600 


Note: Truncate is a computer term that means ‘‘reduce a number with a 
decimal fraction to its whole-number value.” The truncated values of 3.0001 
and 3.9999 are both equal to 3. The truncated values of — 3.0001 and — 3.9999 
are both equal to —4 (since the decimal number is reduced). 


2.3 SOME VERY BASIC FUNCTIONS 


Functions in BASIC are essentially mathematical routines that either come with 
the computer system (as a library of routines or functions) or are defined by the 
user. Once a function has been defined, it may be used over and over again 
without the bother of writing out the entire routine. 

Two of the most common library functions that are used in instructional 
computing applications are RND(1) and INT. When executed, the RND(1) func- 
tion automatically gives some random numeric value between 0.0 and 0.99999999, 
The INT function truncates any number with a decimal fraction (called a real 
number) to a whole number (called an integer). 

By using a combination of these functions in BASIC statements, it is possible 
to generate random numbers within any range desired. This may be used to 
generate different values for questions containing numbers, randomly selecting 
questions by number from a “‘bank’”’ of questions, randomly branching to spec- 
ified line numbers using ON-GOTO statements, and so on. The following illus- 
tration shows how this combination may be used to generate numbers in the 
range of 1—10, inclusive. 
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Suppose a BASIC statement looked like this: 


X = INT(10 * RND(1) + 1) 


and suppose RND(1) comes up with a random value of 0.58. BASIC is set up so 
that numerical operations enclosed in parentheses are performed first. Thus, the 
steps the system follows in computing the value of X would be: 


I. 10* 0.58 = 5.8 
2. 58+ 1 = 68 
3. INT of 6.8 = 6 
Thus, X will have a value of 6 in this example. 
What would be the value of X if RND(1) = 0.99999999? What would be 


the value of X if RND(1) = 0.01? What is the range of random numbers that 
could result from the statement: 


X = INT(10 * RND(1) + 3) 


What would be the statement that would generate random numbers in the range 
1.00—100.00, inclusive? (Hint: Note the two decimal places. How is an integer 
value changed to a real value containing two decimal places? Answer: By dividing 
the integer by 100.) What statement would produce random numbers in the 
range 5—95, inclusive? 


2.4 MODIFICATION OF EXISTING PROGRAMS 


In Chapter 1, Problem 5 asked the reader to modify PROGRAM 1 to output 
(PRINT) the number of heartbeats equivalent to a user’s age in years, assuming 
there were 72 beats per minute. To do this, it is necessary to: 

1. Retrieve PROGRAM 1 from the disk. 

2. Make the modifications. 

3. Save the modified version of PROGRAM 1 as PROGRAM 2. 
[By saving the modified program as PROGRAM 2, both the old version (PRO- 
GRAM 1) and the new version (PROGRAM 2) are on the diskette. If only the 


new version is desired, the same name (PROGRAM 1, in this case) should be 
used. ] 


2.4.1 PROGRAM 2: Adding Heartbeats 


Recall that PROGRAM 1 was created by first typing NEW to erase any pro- 
gram in memory and then entering each line, statement by statement. RUN was 
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typed to test the program, and it was SAVEd on the floppy diskette. Once a 
program has been SAVEd, it may be retrieved for use or modifications by the 


command LOAD (filename). 


If any changes are made that are to be permanent in the program, the com- 
mand SAVE (filename) must be used. This is illustrated by the listing and sample 
run of PROGRAM 2. If a SAVEd program is no longer needed, it may be deleted 
by the command DELETE. Thus, the command for erasing any program is DELETE 
(filename). But be careful! Once a program is deleted, it is gone, gone, gone! 


Run from disk and refer to the listing and run of PROGRAM 2. 


JLOAD PROGRAM 1 
JLIST 


10 PRINT "HELLO. WHAT’S YOUR FIRST NAME" 


20 INPUT N$ 
30 PRINT "HOWDY, "SNS 
40 PRINT 


90 PRINT "TELL ME..++-WHAT IS YOUR AGE IN YEARS"; 


60 INPUT A 
70 D = A * 365 


BO PRINT "WELL» "SN$5"5 YOU HAVE BEEN BREATHING" 


JO PRINT "FOR AT LEAST "$D5" DAYS!" 


100 PRINT »"BYE-BYE>» "iN$ 
110 END 


192 REM — i — i 


193 REM MODIFICATIONS ADDED BELOW 


J94 REM ete2nttet2tezeze22 


196 H=D#24*60*72 


J97 PRINT "AND IN HEARTBEATS» THAT’S" 


J98 PRINT "ABOUT "SH" TOTAL THROBS!" 


J99 PRINT " WOW, "SNSS"E" 


170 D=A*365.25 


JRUN 

HELLO. WHAT’S YOUR FIRST NAME 
?SAMMY 

HOWDY» SAMMY 


Statements 92—99 are entered. 
(Statement 96 converts age in days, D, 
to heartbeats, H, since there are 24 
hours per day, 60 minutes per hour, and 
72 heartbeats per minute.) 


Statements 97-99 display the value of 
variable H, along with appropniate text. 


Statement 70 is reentered, giving a more 
accurate value for days per year (365.25 
versus 365). 


The program is then RUN. 
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TELL ME.» WHAT IS YOUR AGE IN YEARS?43.5 
WELL» SAMMY» YOU HAVE BEEN BREATHING 
FOR AT LEAST 15888.375 DAYS! 
AND IN HEARTBEATS» THAT’S 
ABOUT 1.64730672E+09 TOTAL THROBS! 
WOW, SAMMY ! 
BYE-BYE» SAMMY 


JSAVE PROGRAM 2 The program is SAVEd as PROGRAM 2. 
JLIST A new LIST is requested. 


10 PRINT "HELLO. WHAT’S YOUR FIRST NAME" 

20 INPUT N$ 

30 PRINT "HOWDY» "SNS 

40 PRINT 

2O PRINT "TELL ME..+-WHAT IS YOUR AGE IN YEARS"S 
60 INPUT A 

70 D = A * 365.25 

80 PRINT "WELL»> "SN$5"» YOU HAVE BEEN BREATHING" 
90 PRINT "FOR AT LEAST "sD5" DAYS!" 


92 REM =SS=s2esess=s== 
93 REM MODIFICATIONS ADDED BELOW 
94 REM #=sS2=22ss=s2=s 


96 H = D * 24 * 60 * 72 
397 PRINT "AND IN HEARTBEATS» THAT ’S" 
98 PRINT "ABOUT "SH5" TOTAL THROBS!" 


99 PRINT " WOW, "SNS" IE" 
100 PRINT »"BYE-BYE»s "SN$ 
110 END 


J 


In summary, we have the following commands: 


Command Example Action 

NEW NEW Clears memory of 
statements. 

RUN RUN Executes statements in 
memory. 

RUN (filename) RUN PROGRAM 1 LOADs program (filename) 


LOAD (filename) 


LIST 


LOAD PROGRAM 1 


LIST 


from the disk and RUNs it. 


LOADs program (filename) 
from the disk to memory. 


LISTs the entire program. 
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LIST nn LIST 10 LISTs line nn. 

LIST nn,mm LIST 10,100 LISTs lines nn—mm, 
inclusive. 

SAVE (filename) SAVE PROGRAM 1 SAVEs current program in 


memory on the disk as 
program (filename). 


DEL nn,mm DEL 10,100 DELetes lines nn—mm, 
inclusive. 
DELETE (filename) DELETE PROGRAM 1 DELETEs program 


(filename) from the disk. 


Note: In the RUN of the program, the value of H is expressed as 
1.64730672E +09. This is the method in which the system displays a value of 
1,647,306,720. It is also the system’s way of expressing scientific notation, that is, 
1.64730672 x 10’. This amounts to one billion, six hundred forty-seven million, 
three hundred and six thousand, seven hundred and twenty heartbeats! Tho’ 
easily broken, ‘tis still a powerful muscle! 


2.9 INCORPORATING THE NEW STATEMENTS 


The content design of any BASIC program is at the discretion of its author (pro- 
grammer). The program can be as simple or as complex as the author desires. 
For example, BASIC may be used in trivial Fahrenheit-to-Celsius temperature 
conversions or in sophisticated modeling of population dynamics. The point is 
that a program does only what an author has designed it to do—nothing more 
or less. However, for any program, regardless of its simplicity or complexity, the 
author must first outline the design and ‘‘flow’’ of the program. On that note, 
the following program (PROGRAM 3) is designed only to illustrate a use of the 
statements discussed in this chapter. 


2.5.1 PROGRAM 3: Appropriate Responses 


The program will ask a question and give only one chance for a correct 
answer. ‘‘Appropriate’’ responses will be made for either a correct or incorrect 
answer. The program will then ask a final question related to age. The user will 
be informed if the answer is too low or too high. For answers that are too high, 
an additional comment will be randomly selected from three choices. The ques- 
tion will be repeated until the correct answer is given. 

This is a general outline of what the program is designed to do. The BASIC 
statements needed to accomplish this are shown in the program listing. (Now, 
try to relax when you see the “long”’ listing of the program. Think about what 
each statement instructs the system to do and mentally follow its execution.) 
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RUN from disk and refer to the listing and run of PROGRAM 3. 


JLOAD PROGRAM 3 


JLIST 
10 REM PROGRAM 3 
20 REM — i — 


3O REM ASK SOME QUESTION 

40 REM GET AN ANSWER AND 

YO REM CHECK FOR ACCURACY 

60 REM See2=22 522 >==-=2 

70 PRINT "WHAT STATE FOLLOWS ALASKA" 
80 PRINT "IN TOTAL LAND AREA"S 

90 INPUT R$ 

100 IF R$ = "TEXAS" THEN 130 

110 PRINT »"NOPE» IT’S TEXAS!" 

120 GOTO 140 


130 PRINT TAB( 3)s3s"YEEE-HAAA! YOUR ANSWER 


IS CORRECT!" 
140 PRINT 
150 REM Mmaeneeestezesz2=== 


160 REM ASK ANOTHER QUESTION 

170 REM AND CHECK FOR HIGH OR 

180 REM LOW ANSWER INPUT 

190 REM — |e ee 

200 PRINT "WHAT WAS THE PERPETUAL AGE" 
210 PRINT "OF THE LATE JACK BENNY" 5 
220 INPUT R 

230 IF R < 39 THEN 290 

240 IF R > 39 THEN 320 

290 REM ===THEN INPUT EQUALS 39=== 
260 PRINT 

270 PRINT "DIDN’T LOOK IT» DID HE..." 
280 GOTO 490 

290 PRINT »"TOO LOW..." 

300 REM ===REPEAT THE QUESTION=== 
310 GOTO 140 

320 PRINT +»"TOO HIGH..." 

330 REM Sess S5 522 >== 

340 REM GET A RANDOM COMMENT FOR 
350 REM ANY ANSWER THAT IS HIGH 
360 REM THEN REPEAT THE QUESTION 
370 REM esos sss =S2-== 

380 X = INT (3 * RND (1) + 1) 

390 ON XK GOTO 400:420;440 


Statements 70 and 80 (the first executed 
statements) print the question. 


Statement 90 displays a question mark 
(note where it is displayed!), waits for 
input, and stores it in the string variable 
R§. (Note: From now on, reference to 
statements will sometimes be made by 
number only. That is, statement 100, for 
example, will simply be referred to as 
100.) 


100 checks for value of R$ equal to 
TEXAS. If so, transfer to 130 occurs. If 
not, 110 is executed, and then 120 
causes transfer to 140 (skipping 130, the 
response for the correct answer). 


140 prints a blank line. 
200 and 210 print the next question. 


220 displays a ‘’?’’; waits for input; and 
stores it in variable R. 


230 checks for R less than 39. If so, 
transfer is to 290. If not, execution 
continues to 240, which checks for R 
greater than 39. If so, transfer is to 320. 
If not, 260 and 270 are executed. (230— 
270 essentially say that if R is neither 
greater nor less than 39, then it must be 
equal to it.) 


290 (from 230, if R< 39) lets user know 
they are too low, and 310 returns to the 
question (140). 


320 (from 240, if R>39) lets user know 
they are too high. 


380 gives a random value for X between 
3 and 1, inclusive. 


390 transfers execution to 400 if X = 1, 
to 420 if X = 2, orto 440 if X = 3. 
These statements print an additional 
comment and return the execution to 
140 (by 410, 430, or 450). 


400 PRINT "NOW THAT IS OLD!" 
410 GOTO 140 


420 PRINT "ARE YOU TRYING TO BE CRUEL?" 


430 GOTO 140 


440 PRINT "HAVE YOU NO SYMPATHY?" 


430 GOTO 140 

460 REM sassasrtrssses2=e2 

470 REM END THE PROGRAM 

480 REM SSeettrss22e2s22se== 

490 PRINT 

900 PRINT 

210 PRINT »"BYE-BYE» FRIENDS..." 
220 END 


JRUN 

WHAT STATE FOLLOWS ALASKA 

IN TOTAL LAND AREA?CALIFORNIA 
NOPE, IT’S TEXAS! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?33 
TOO LOW... 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?6G9 

TOO HIGH... 
HAVE YOU NO SYMPATHY? 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?66 

TOO HIGH... 
NOW THAT IS OLD! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?55 

TOO HIGH..+-. 
NOW THAT IS OLD! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?39 


DIDN’T LOOK IT» DID HE... 


BYE-BYE» FRIENDS... 
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If R is neither less than nor greater than 
39 (see statements 230—270), 280 
transfers execution to 490 which prints 
a blank line, as does 500. A farewell is 
printed by 510 and the program ends at 
520. 
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JRUN 


WHAT STATE FOLLOWS ALASKA 
IN TOTAL LAND AREA?TEXAS 
YEEE-HAAA! YOUR ANSWER IS CORRECT! 


WHAT WAS THE PERPETUAL AGE 
OF THE LATE JACK BENNY?39 


DIDN’T LOOK IT» DID HE... 


BYE-BYE» FRIENDS... 


2.6 POSERS AND PROBLEMS 


l. 
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What is the difference between the variables R and R$ in PRO- 
GRAM 3? 


What would be the result if statement 390 in PROGRAM 3 read ON X 
GOTO 440,400,420? 


Modify statements 400, 420, and 440 in PROGRAM 3 to give comments 
of your choosing. 


What should be done to PROGRAM 3 so that it would ask for your age 
instead of Jack Benny’s? 


What should be done to PROGRAM 3 in order to select a random 
comment from five choices instead of three? 


What changes should be made to PROGRAM 3 in order to ask for the 
third largest state by land area instead of the second? 


How should PROGRAM 3 be modified to ask for the user’s first name 
at the start of the program and then refer to them by name when ‘‘BYE- 
BYE...’’ is executed in statement 510? 


Add some REM statements to PROGRAM 1 so that the variables are 
made clearer to someone looking at the listing of the program for the 
first time. 


Write a statement that will randomly give a value for variable X that is 
between 100 and 25, inclusive. 


10. 


I]. 


12. 


13. 
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What is the range of numbers that could randomly be generated by the 
statement: 


K = INT(25 * RND(1) + 95) 


Write a program that asks for the user’s height in inches and then prints 
“TALL” if the user is over six feet, ‘‘SHORT”’ if under five feet, or 
“AVERAGE” if between five and six feet, inclusive. 


Write a program that inputs the lengths of the sides of a triangle as 
variables A, B, and C (largest side last) and determines if it is a right 
triangle. [Hint: For right triangles, C* 2 = A“ 2 + B° 2. The caret (*) 
is the Apple’s way to ‘‘raise to the power of.’’)] 


Write a program that inputs a number and prints “THREE” if it is a 3, 
“SIX” if it is a 6, ‘“NINE” if it is a 9, or ‘“NEITHER 3, 6, nor 9” if it is 
not equal to either 3, 6, or 9. 
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“Dont put off for tomorrow what you can do today, 
because if you enjoy it today you can do it again 
tomorrow” 


—James A. Michener 
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Think About This ( for Fun) 


What is the exact opposite of not in? 


Think About This (Seriously) 


30 Is the use of computers in instruction just another “educational fad”? 


Chapter 


Take a Ride on the 
Loop- D-Loop 


3.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 


1. Define and give at least one example of each of the BASIC statements 
HOME, DATA-READ, RESTORE, and FOR-NEXT (Sections 3.2.1—3.2.4). 


2. Enter and RUN each of the BASIC programs used as statement examples 
in this chapter. 31 
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3.2 BASIC STATEMENTS FOR THIS CHAPTER 


3.2.1 Statement HOME 


Purpose HOME clears (erases) all display and “homes” the cursor in 
the upper left corner of the TV or monitor screen. This use is particularly appro- 
priate in instructional computing since it allows information, examples, ques- 
tions, and so on, to be displayed in a frame-by-frame fashion. 


Example: HOME 


3.2.2 Statement Pair DATA-READ 


Purpose DATA allows information (numeric or string) to be stored in 
a program for use at various stages throughout its execution. The pieces of infor- 
mation are generally referred to as data elements, with each element separated 
(delimited) by a comma. READ assigns the defined value of a data element to a 
specified variable and “moves” a data “marker” or “pointer” to the next data 
element. The data type (numeric or string) must match the variable type (numeric 
or string). For example, “ABC” cannot be assigned to a numeric variable. 
There are two important notes to be made in regard to the elements in the 
DATA statements: 


1. Never place a comma at the end of the DATA statement. The system may 
take the space character following the comma as the next data element! 


2. On the Apple system it is not actually necessary to enclose string ele- 
ments in quotation marks. However, there are certain sequences of char- 
acters that the system may misinterpret if the string is not enclosed in 
quotes. Therefore, as a safeguard, always enclose string DATA elements 
with quotation marks. It is worth the extra keystrokes required to do 
this in order to avoid any potential difficulties that may otherwise result. 


Example: 10 DATA 1s"ABC" 12 


20 READ N 
30 PRINT N 
40 READ N& 
90 PRINT NS 
GO READ N 
70 PRINT N 
80 END 


Why did the value of the variable N change? If statement 
75 PRINT N$ 


32 were added, what would be the result of running the program again? 
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Example: 10 DATA 1+"ABC"+2+"DEF" 
20 READ N+N$sN1 
30 PRINT NoN$sN1 


40 READ N¢$ 
90 PRINT N1isNsNS 
60 END 


Why did the value of the variable N$ change? What caused the display format 
of PRINT statements 30 and 50 to be different? 

(After mentally tracing the program execution, enter and RUN the above 
examples to check your mental interpretations.) 


3.2.3 Statement RESTORE 


Purpose Moves the data pointer to the first data element in the first 
DATA statement. 


Example: 10 X = 0 
20 DATA 1+"ABC" »25"DEF" 
30 READ NoNS oN] »N1S 
4O PRINT NoNSoN1 oN1S 
90 IF X = 2 THEN 100 
60 X = X + 1 
70 PRINT “THE VALUE OF X IS "5X 
90 GOTO 30 
100 END 


Enter and RUN the above program and note what happens. Add the statement 
80 RESTORE and RUN again. Note the results. 

What is the position of the data pointer after statement 30 has been executed 
but before the RESTORE statement is added? What caused the error message in 
the first RUN? What caused the program to stop execution after the statement 
80 RESTORE was added? What would the program do if statements 50—70 were 
deleted (after 80 RESTORE was included in the program)? Think this through 
before RUNning; otherwise, remember that simultaneously depressing the CON- 
TROL and C keys (CTRL-C) will halt the execution of a “runaway” program! 

Note: On many BASIC systems, statements such as 10 X = O (as in the 
program above, for example) are not needed because all variables are automat- 
ically ‘‘initialized’’ (set) to zero. However, it is good programming practice to 
initialize variables to zero in any program. 


3.2.4 Statement Pair FOR-NEXT 


Purpose Defines the number of times (loops) a series of consecutive 
BASIC statements are to be repeated. FOR defines the variable used as a counter 
for the repeats and the lower and upper limits of the count. NEXT increases the 
variable count by 1 (or the defined STEP size) and checks to see if the upper 
limit of the FOR is exceeded. If not, execution is transferred to the statement 
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immediately following the FOR statement. If the upper limit is exceeded, exe- 
cution is transferred to the statement immediately following the NEXT statement. 

The variable names in the loop defined by a FOR-NEXT must be identical. 
Note also that the start and/or limit of the loop may be defined by variable names, 
as in FOR X = Y TO Z. 


Examples: 10 FOR X = 1 TO 10 
ZO PRINT X#X * X 
30 NEXT X 
40 PRINT>"THAT’S ALL..." 
20 END 


10 FOR XK = 1 TO 10 STEP 2 
20 PRINT X sX#K¥X 

30 PRINT+"MORE TO COME..." 
4Q NEXT X 

90 PRINTs"THAT‘’S ALLe." 
60 END 


10 A = 10 

20 B = -10 

30 FOR C = A TO B STEP -2 
40 PRINT Cs" "35 

90 NEAT C 

60 END 


(Mentally trace the execution, and then enter and RUN each program.) 


3.3 INCORPORATING THE NEW STATEMENTS 


With the addition of the statements in this chapter, a BASIC program may be 
designed that provides more of a utility than the earlier programs. One of the 
many uses of computer programs involves searching a list of information (com- 
monly called a data base) for key elements that may be specified by a user. For 
example, data bases may be searched for financial accounts that are overdue by 
30, 60, or 90 days; address lists may be searched for ZIP codes; employee rolls 
may be searched for persons who have special deductions; and so on. The fol- 
lowing program illustrates one search technique. 


3.3.1 PROGRAM 4: Searching for a Range of Values 


The program contains a list of DATA elements representing pairs of hypo- 
thetical names and scores. This list is to be searched for scores that fall within a 
specified maximum and minimum range. A list of names and scores that are 
within this range is printed. Following this, the user is given an option to do 
another search. 
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What will this require as the program is mentally designed? In outline form, 


there 


6. 
7. 


must be at least: 


Prompts to‘get the maximum and minimum scores (PRINTs). 
Entry of these scores (INPUTs). 


A loop (FOR) to: 

a. READ the DATA. 

b. Check (IF-THENs) to see if the current score read is the last data 
element in the list and, if not, to see if it is in the maximum-minimum 
range. 

c. Display (PRINT) the name and score if in the range. 

d. Continue the search (NEXT). 


A prompt for another search option (PRINT and INPUT). 


Movement of the data pointer back to the first data element if another 
search is to be done (RESTORE), followed by repetition of the total 
process (GOTO). 


A list of names and scores in the program (DATA). 


An end to the program (PRINT and END). 


RUN from disk and refer to the listing and run of PROGRAM 4. 


JLOA 
JLIS 


D PROGRAM 4 

T 

REM =ss=s52s==s=5=225 Statements 10—200 give a brief 

REM PROGRAM 4 DESCRIPTION documentation of the program, describing 

REM SS=ssSessss22=== its primary functions and listing 

REM KEY SEARCH OF 50 OR LESS DATA ELEMENT important variables and their use. 
PAIRS. 

REM PROGRAM SEARCHES FOR A MINIMUM-MAXIMUM 


RANGE OF SCORES. 
REM DATA ELEMENTS ARE IN SEQUENCE: NAME,» 


SCORE. 
REM LAST SEQUENCE OF DATA ELEMENTS: "XK" +0 
REM S=SSssasSeSSSe55 
REM VARIABLE DICTIONARY 
REM SSseeesesseeeaaecs 


REM NS - HYPOTHETICAL NAME 

REM S - HYPOTHETICAL SCORE 

REM M1 - MAXIMUM SCORE 

REM M2 - MINIMUM SCORE 

REM I - LOOP COUNTER 

REM F - "FLAG" FOR FINDING AT LEAST ONE 
MATCH 
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170 
180 
190 
200 
210 
220 
230 
240 
290 
260 
270 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
000 
010 
920 
930 
240 
390 
»60 


970 


»80 


090 


600 
999 


F 


REM 
REM 
REM 
REM 


PRINT 
"9M2 5 
PRINT 
PRINT 
REM 
REM 
REM 
FOR I 
READ 
REM 
IF N$ 


PRINT 
REM 

= 1 
NEXT 
REM 
REM 
REM 
Ie F 
PRINT 
PRINT 
INPUT 
IF 2% 
RESTO 
GOTO 
REM 


REM 
DATA 


SET THE MATCH FLAG TO ZERO» 
THE SCREEN» 


CLEAR 
AND GET THE RANGE SOUGHT. 


"MAXIMUM SCORE" s 


M1 


"MINIMUM SCORE" s 


M2 


"NAMES WITH SCORES IN THE RANGE: 


1 LL M1 


"NAME" »"SCORE" 


= 1 TO 50 


N$ +S 


===END OF DATA LIST?=== 
THEN 460 

IF S > M1 THEN 420 

IF S < M2 THEN 420 


= ox 


NSS 


===FLAG A SEARCH MATCH=== 


= 1 THEN 480 


"###NONE FOUND ##*" 


"DO YOU WISH ANOTHER SEARCH (Y OR N)"3 


2$ 

< > 
RE 
210 


ah dee 


THEN 1000 


"SUE" »67s"B0B" 555 +"JACK" »98»"MARY" -99»% 


"STAN" 950% "ROB" +72 


DATA 


"LETA" 977 s"ALEX" +66 »"SUSAN" +85 »"MARIA" 


999 »"FRAN"+70 


"BOBBIE" »100+"CHARLES" »64 "BILLY" +66» 


"DONNA" 591 »"YANCY" »77+"TRACY" 189 » 
"KAREN" 5100 »/"BUCK" +90 
===ROOM FOR MORE DATA=== 


DATA 
"MAGGIE" »86 
DATA 

REM 

DATA "X" 40 


210 initializes variable F to zero. (F is 
used as a “‘flag’’ to indicate if a search 
found any match: If a match is found, F 
is set to 1; otherwise, F remains 0.) 


220 clears the screen and HOMEs the 
cursor at line 1, column 1 on the screen. 


230-260 obtain maximum and 
minimum range of scores desired by 
user. 


270—290 PRINT a heading for the list. 
330—420 define a FOR-NEXT loop. 


330 assigns I as loop counter, sets its 
intial value to 1, and defines its upper 
limit as 50 (i.e., the loop will execute 
maximum 50 times). 


340 READs a DATA element pair from 
data list beginning at 560 and assigns 
values read to N§ and S, respectively. 
(The first time READ is executed, N$ has 
a value of SUE, S equals 67. Data 
pointer then moves to BOB in 
preparation for next READ.) 


360 checks value of N$§. If equal to the 
character X, execution transfers to 460. 
(X is arbitrarily defined as last ‘“‘“name’’ 
in data list. This lets program know 
when last data element pair has been 
read.) 


370—380 check S, the score just READ, 
to see if outside max-min range (greater 
than M1 or less than M2). If so, 
execution transfers to 420 where loop 
repeats if value (I + 1) does not exceed 
defined upper limit of 50. 


If S falls within range (neither greater 
than MI nor less than M2), 390 PRINTs 
current values of N§$ and S. 


410 sets flag F to 1, indicating a match 
found. 


1000 PRINT "### SEARCH COMPLETED *#**#" 
1010 END 


JLOAD PROGRAM 4 
JRUN 


[Clear screen] 


MAXIMUM SCORE?100 
MINIMUM SCORE?90 
NAMES WITH SCORES IN THE RANGE: 90-100 


NAME SCORE 
JACK 98 
MARY 99 
MARTA 99 
BOBBIE 100 
DONNA 91 
KAREN 100 
BUCK 90 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 


MAXIMUM SCORE?89 
MINIMUM SCORE?80 
NAMES WITH SCORES IN THE RANGE: 80-89 


NAME SCORE 
SUSAN 85 
MAGGIE 86 
TRACY B89 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 
MAXIMUM SCORE?79 


MINIMUM SCORE?70 
NAMES WITH SCORES IN THE RANGE: 70-79 


NAME SCORE 
ROB 72 
LETA 77 
FRAN 70 
YANCY 77 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
(Clear screen] 


MAXIMUM SCORE?69 
MINIMUM SCORE?60 
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420 repeats loop if not yet occurred 50 
times. 


460 can be executed from one of two 
sources: 360, if last data element has 
been READ; or 420, if NEXT 1 exceeds 
limit defined in statement 330. 


460 checks value of F If F = 1 
(indicating a match), transfer is to 480. 
If F# 1, no match was found. 470 then 
PRINTs that message. 


480—500 give option for another search. 
If INPUT value for Z$ not equal to Y (for 
Yes), transfer is to 1000 and program 
ENDs. Otherwise, 510 RESTOREs data 
pointer to first data element, and 520 
transfers execution back to 210 for 
another search. 
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NAMES WITH SCORES IN THE RANGE: 60-69 


NAME 
SUE 
ALEX 
CHARLES 
BILLY 


SCORE 


66 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 


[Clear screen] 


MAXIMUM SCORE?5S9 
MINIMUM SCORE?50 


NAMES WITH SCORES IN THE RANGE: 50-59 


NAME 


BOB 
STAN 


SCORE 


DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 


[Clear screen] 


MAXIMUM SCORE?49 
MINIMUM SCORE?40 


NAMES WITH SCORES IN THE RANGE: 40-49 


NAME 


*#¥**NONE FOUND### 


SCORE 


DO YOU WISH ANOTHER SEARCH (Y OR N)?N 
**#* SEARCH COMPLETED *** 
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3.3.2 Additional Comments on PROGRAM 4 


DATA statements may be included anywhere in a BASIC program. They are 
not executed as, for example, a PRINT or INPUT statement would be. Their only 
use is to contain data (information) that is to be READ and assigned to variables. 
The DATA statements in PROGRAM 4 are placed near the end of the program 
so that additional DATA statements may be added if desired. The last data ele- 
ment pair, ‘‘X’’ and 0, is given the highest number possible for a DATA statement 
(999 in this case). Thus, additional DATA statements could be inserted between 
statements 600—999 if there were a need to add more data. 


3.4 A TIME-SAVING TECHNIQUE 


There may be times when the reader wishes to SAVE both the ‘‘old”’ and ‘‘new”’ 
versions of a program. The ‘‘new’’ (modified) version of a program may be 
SAVEd by simply giving it a new (unique) name when the SAVE command is 


Take a Ride on the Loop-D-Loop 


issued. We did this earlier in Chapter 2 when PROGRAM | was modified (with 
the heartbeats) and SAVEd as PROGRAM 2. 

To illustrate this technique, PROGRAM 4 will be modified, renamed, and 
SAVEd as PROGRAM 5. This means that both the old (PROGRAM 4) and the 
new (PROGRAM 5) programs will be available for future use. 


3.4.1 PROGRAM 5: Searching for a Specific Value 


Arbitrarily, this new version of PROGRAM 4 will perform a search for only 
one user-specified score, listing all the names with that score. 

First, the LIST of PROGRAM 4 is studied. Examination of the list of state- 
ments shows which lines need to be modified. These changes are then made, as 
indicated in the session that follows. 

The program is then RUN to test these modifications. On completion of a 
successful RUN, the program is SAVEd as PROGRAM 5. It is then listed for 
examination. Note that a new program (PROGRAM 5), based on another pro- 
gram (PROGRAM 4), has been created and SAVEd without the time and trouble 
required to completely type the new version. 


Run from disk and refer to the listing and run of PROGRAM 5. 


JLOAD PROGRAM 4 20 and 50 retyped in program 

120 REM PROGRAM 5 DESCRIPTION description. 

150 REM PROGRAM SEARCHES FOR A SPECIFIED 130 retyped to reflect program change. 
SCORE. 


J130 REM Mi - SCORE SOUGHT 

J140 

J160 REM F - COUNTER FOR THE NUMBER OF MATCHES 
FOUND 

3230 PRINT “SCORE SOUGHT" s 


JDEL 


3270 


2950 +260 


PRINT "NAMES WITH A SCORE OF "35M1 


140 is deleted (no longer needed). 


160 retyped to reflect program change. 
230 retyped to reflect program change. 
250 and 260 deleted (not needed). 

270 retyped to reflect program change. 


370 retyped to perform check for match 
of score sought. 


380 is deleted (not needed). 
400 retyped to reflect program change. 


410 changed from flag to counter of 


460 and 470 changed to show number 


1370 IF S <> M1 THEN 420 
1380 
matches found. 
1400 REM ===COUNT THE NUMBER OF MATCHES 
FOUND=== 
1410 F =F + 1 of matches found. 
1460 PRINT "THIS SEARCH FOUND "$F5" MATCH(ES)" 


1470 


PRINT 
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JRUN 
[Clear screen] 


SCORE SOUGHT?100 
NAMES WITH A SCORE OF 100 


NAME SCORE 
BOBBIE 100 
KAREN 100 


THIS SEARCH FOUND 2 MATCH(ES) 
DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 


SCORE SOUGHT?75 
NAMES WITH A SCORE OF 75 
NAME SCORE 


THIS SEARCH FOUND O MATCH(ES) 
DO YOU WISH ANOTHER SEARCH (Y OR N)?Y 
[Clear screen] 


SCORE SOUGHT?50 
NAMES WITH A SCORE OF 50 
NAME SCORE 


STAN 00 
THIS SEARCH FOUND 1 MATCH(ES) 


DO YOU WISH ANOTHER SEARCH (Y OR N)?N 
##* SEARCH COMPLETED **+* 


JSAVE PROGRAM 5 


JLIST 

10 REM sSeee2e2e222zz2zee2 

20 REM PROGRAM S DESCRIPTION 

30 REM Sseterte2sss22e22=2 

40 REM KEY SEARCH OF 50 OR LESS DATA ELEMENT 


PAIRS. 
SO REM PROGRAM SEARCHES FOR A SPECIFIED SCORE. 
60 REM DATA ELEMENTS ARE IN SEQUENCE: NAME» 
SCORE. 
70 REM LAST SEQUENCE OF DATA ELEMENTS IS "X",40 


80 REM Sercs2esses2s22+2+22 
390 REM VARIABLE DICTIONARY 
100 REM Ssttetstees22222=22 


110 REM NS - HYPOTHETICAL NAME 

120 REM §S§ - HYPOTHETICAL SCORE 

130 REM Mi - SCORE SOUGHT 

150 REM I - LOOP COUNTER 

160 REM F - COUNTER FOR THE NUMBER OF MATCHES 
FOUND 

170 REM Sse= 62 se522s5=22= 

180 REM SET THE MATCH FLAG TO ZERO» CLEAR 

190 REM THE SCREEN» AND GET THE RANGE SOUGHT. 

200 REM Sess seses = S25 

210 F = 0 

220 HOME 

230 PRINT "SCORE SOUGHT" S$ 

240 INPUT Mi 

270 PRINT "NAMES WITH A SCORE OF "sM1 

280 PRINT "NAME" »"SCORE" 


290 PRINT “----")"----- " 
300 REM Beetsssese222222==e 
310 REM DO THE SEARCH LOOP 
320 REM =#222222222e22225 


330 FOR I = 1 TO 50 

340 READ N$;+S 

390 REM ===END OF DATA LIST?=== 
360 IF N® = "X" THEN 460 

370 IF S < > M1 THEN 420 

390 PRINT NSS 


400 REM ===COUNT THE NUMBER OF MATCHES 
FOUND=== 

410 F = F + 1 

420 NEXT I 

430 REM ie. eet 

440 REM END OF CURRENT SEARCH 

450 REM <== --S S252 5 25 


460 PRINT "THIS SEARCH FOUND "sF5" MATCH(ES)" 
470 PRINT 

480 PRINT "DO YOU WISH ANOTHER SEARCH (Y OR ND" 
490 INPUT 2% 

900 IF 2$ < => "¥" THEN 1000 

910 RESTORE 

920 GOTO 210 


S530 REM Seseesseee2eex2ze2 
940 REM DATA LIST 
550 REM Ssesexezesee2222= 


960 DATA "SUE" »67,"BOB" 555 +"JACK" 198 »"MARY" 
999 »"STAN" 950 +"ROB" 572 

970 DATA "LETA" 577 s"ALEX" »66 »>"SUSAN" +85 » 
"MARIA" »99 +"FRAN" +70 
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980 DATA "BOBBIE" ,100,"CHARLES",64,"BILLY" 
»66 »>"MAGGIE" »86 

990 DATA "DONNA" »9S1 "YANCY" »775"TRACY" ,89, 
"KAREN" »100,"BUCK" »90 

600 REM ===ROOM FOR MORE DATA=== 

9899 DATA "X"+0 

1000 PRINT "**% SEARCH COMPLETED **#" 

1010 END 
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3.5 POSERS AND PROBLEMS 


I. Correct any errors (if, in fact, there are any) in the following three programs: 


10 FOR X = 1 TO 10 
20 PRINT Y +Y#Y 

30 NEXT ¥Y 

40 END 


10 DATA 1+"ABC" 52 
20 READ NoNS$eN1$ 

30 PRINT NoNSoN1S 
40 END 


10 DATA 419596 

20 FOR X = 1 TO 3 
30 READ A 

40 PRINT A 

90 NEXT X 

60 READ A 

70 PRINT A 

BO END 


2. Below are some student data for a name and test score. Complete the 
program so that the name and score are printed in columnar form. 


10 DATA "CHUCK" s35 +>"MARY" ,805"PHIL" +95 >"JEANNIE" 935 
20 FOR I = 1 7T0 4 
30 READ S$15 


3. Modify your program in Problem 2 to print the average of the scores 
after printing the list of names and scores. 


4, Write a search program in which a list of data elements consists of 
hypothetical names, hair color, eye color, and height in inches. A list is 
to be printed that shows the above information based upon a search of 
a user-specified eye color. For example, if BLUE is input in response to 
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“EYE COLOR?”, the name, hair color, eye color, and height in inches 
for all blue-eyed people would be printed. The program should also give 
the option to conduct another search. 

Note: This program may be easily completed by modifying PRO- 
GRAM 5. For example, PRINT statements describing the program and 
prompting for the eye color will have to be modified and/or added. The 
INPUT will have to be a string variable. The READ statement will need 
to read four DATA elements. The IF-THEN check will have to compare 
the INPUT variable and the eye-color variable just read. The PRINT state- 
ment showing a match will have to be written so that four variable values 
are displayed on one line—consider using TAB between the variables 
in the PRINT statement. Finally, the DATA statements will have to con- 
tain four elements (name, hair color, eye color, and height in inches). 


Enter and RUN the following program. Be prepared to discuss its flow. 


> SPEED = 100 

10 FOR X = 10 TO 1 STEP -1 

20 IF X > 1 THEN 50 

30 PRINT Xs" LITTLE RABBIT. SEE ITS TAIL!" 


40 GOTO 55 

50 PRINT Xs" LITTLE RABBITS. SEE THEIR TAILS!" 
JS PRINT» 

60 FOR I = 1 TO XK 

70 PRINT "# "34 

B80 NEXT I 

90 PRINT 

100 NEXT X 

110 PRINT 


120 PRINT "ANN THEN THERE WERE NONE..." 
125 SPEED = 255 
130 END 


In particular, what is the purpose of ‘‘STEP -1’’ in statement 10, the 
comma in statement 55, the semicolon in statement 70, and the PRINT 
in statement 90? [Note: Statements 5 and 125 in the above program 
introduce SPEED which may be used either as a statement or command. 
It is used to control the rate of character display on the screen. Its value 
is relative and for our purposes may vary from 10 (very slow) to 255 
(normal rate).] 


Write a program which converts Celsius to Fahrenheit and PRINTs an 
equivalence table for every 5 Celsius degrees from 0 to 100, inclusive. 
Hint: F = 32 + (C * 9/5). 


Write a program that will PRINT the cube of the numbers | to 10, 
inclusive. 
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“Frustration is not having anyone to blame but 
yourself.” 


—Bits and Pieces 


“Work spares us from three great evils: boredom, vice 
and need.” 
—Voltaire 


Think About This ( for Eun} 


I have two U.S. coins that total $0.55. One of them is not a nickel. What are the 
coins? 


Think About This (Seriously) 


Could the proliferation of microcomputers in the school and home alter the 
traditional classroom setting as we now know it? If so, how? 


2p 


DIM It! There Must Be an 
Easier Way! Array! Array! 
There Is! 


4.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
1. Define and give at least one example of a subscripted variable (Section 
4.2.1). 


2. Define and give at least one example of both a one-dimensional and a 
two-dimensional array (Sections 4.2.1 and 4.2.2). 


3. Define and give at least one example of each of the BASIC statements 
DIM and GOSUB-RETURN (Section 4.4). 


4. Design, enter, and RUN a BASIC program of your own choosing that 
includes a one-dimensional array and the BASIC statements for this 
chapter. 
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4.2 ARRAYS 


4.2.1 One-Dimensional Arrays 


For our purposes, a one-dimensional array is just an organized list of infor- 
mation. That information could be any string and/or numeric values: student 
names, states, chemical names, school districts, test scores, ages, weights, years, 
and so on. 

Recall the four names and test scores given in Problem 2 of Chapter 3. Using 
one-dimensional arrays in BASIC, we can easily make lists of those names and 
scores. 

Consider the BASIC statements needed. First, there is information (names 
and scores) that will be used; thus, there will be a need for DATA statements. Of 
course, if there is DATA, it will need to be READ. Also, since there are two sets 
of four elements (four names and four scores), a FOR-NEXT loop could be used 
to do the READing. Thus: 


10 DATA "CHUCK" »"MARY" "PHIL" »"JEANNIE" 
20 FOR I = 1 T0 4 

3O READ NS$(T1) 

4Q NEXT I 


This should appear somewhat familiar, with the exception of statement 30, 
READ N§$(I). N$(I) is an example of another type of variable. This type, however, 
uses an “‘internal’’ variable, (I), to distinguish one value of N$(I) from the others. 
Remember, the variable I is going to have a value that may be 1, 2, 3, or 4 (FOR 
I = 1 TO 4). Thus, the variable values in this example are: 


N$(1) = CHUCK 
N$(2) = MARY 
N$(3) = PHIL 
N$(4) = JEANNIE 


Or, said another way, there is a 4-item list (one-dimensional array) of N$(I) 
values: 


I N$(1) 

I. CHUCK 
2; MARY 

3. PHIL 

4. JEANNIE 


The name given to these types of variables is subscripted variables. The value 
of N$(1), pronounced ‘‘N$ sub 1,’’ is equal to the string CHUCK; the value of 
N$(2) is equal to the string MARY, and so on. 


DIM It! There Must Be an Easier Way! 


It is quite simple to build a series of lists using subscripted variables. Consider: 


10 DATA "CHUCK" +95 +"MARY" ,80,"PHIL" 995 »"JEANNIE"” +35 
20 FOR I = 1 7T0 4 

30 READ NS#(1I) »S(T) 

40 NEXT I 


If these statements were to be executed, what would be the value of N$(3)? Of 
S(4)? If the following statements were added to those above, what would be the 
result of execution? 


YO FOR I = 4 TO 1 STEP -1 
6O PRINT NS(I) »S(T) 

70 NEXT I 

80 END 


(Mentally trace the execution; then enter and RUN to check your mental 
interpretation. ) 


4.2.2 Two-Dimensional Arrays 


A one-dimensional array is nothing more than a list of data. A two-dimen- 
sional array is a table of data in rows and columns. 

Assume there are two test scores for each of those students above. A table, 
consisting of 4 rows and 2 columns, might look like this: 


Name Test 1 Test 2 
CHUCK 95 80 
MARY 80 82 
PHIL 95 93 
JEANNIE 35 98 


Note: The table in this example is composed of the test scores. The names of 
the students cannot be included in the table because they are string variables, 
and the two-dimensional array is defined as a numeric array. In other words, 
variable types (string and numeric) cannot be mixed in an array. However, just 
as it is possible to define a two-dimensional numeric array, a two-dimensional 
string array may also be defined. Just don’t mix them! 

How could a two-dimensional array of this information be formed? Again, 
there is information (names and scores) that will be used; so DATA statements 
are appropriate. This information in statement form would be: 


10 DATA "CHUCK" +95 +80 
20 DATA "MARY" 180 +82 

30 DATA "PHIL" »95#93 

40 DATA "JEANNIE" +35 +98 
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(The DATA statements above could be combined into one or two statements. 
However, they are listed as four separate statements for the sake of clarity.) 

The difficulty is in determining how the DATA should be READ. Examine 
the sequence of information: one name, followed by two scores; then the next 
name, followed by two scores; and so on. Since there are 4 rows (names) and 
each must be READ, the first loop to be defined will be FORI = 1 TO 4. However, 
before the next name is READ, there are 2 scores to be assigned (READ). So, 
another loop, FOR J = 1 TO 2, needs to be defined. Thus: 


90 FOR I = 1 TO 4 
6O READ NS$(I) 


70 FOR J = 1 7T0 2 
BO READ S(I+J) 
JO NEXT J 

100 NEXT I 


(Note: The indentation is for clarity only.) 

The variable I is READing the rows of the table, and the variable J is READing 
the columns. The J loop is said to be nested within the I loop. Examine the table 
above. What is the value of S(LJ) when I = 1 and J = 1? WhenI = 3 andJ = 
2? The important point to remember is that I and J are nothing more than 
numbers that define a row and column, respectively. 

A more productive use of two-dimensional arrays may be illustrated by 
adding the following statements to the program: 


45 PRINT "NAME" s"TEST1I" s"TEST2" 

46 PRINT WY es as eerie Og, ee ee ae ie es Ss es ee ib 

6S PRINT NS(1)» 

81 PRINT S(IsJ)» 

82 REM T(I) = CUMULATIVE TOTAL EACH STUDENT’S SCORE 
B84 T(I) = TCI) + SCI sd) 

86 REM T = CUMULATIVE TOTAL OF ALL SCORES 

8B T= T + S(I+J) 

94 REM SKIP A LINE PRIOR TO PRINT OF NEXT NAME 
95 PRINT 

110 PRINT 

120 FOR I = 1 TO 4 

130 PRINT N#(I)5"’S AVERAGE IS "sT(I)/2 

140 NEXT I 

150 PRINT "THE CLASS AVERAGE IS "iT/8 

160 END 


Combine all the statements in this section into one program; then enter and RUN 
it. What is the purpose of the comma at the end of statements 65 and 81? Why 
is a blank PRINT needed in statement 95? Examine the LIST of the complete 
program very carefully and mentally follow the execution of each statement. 


DIM It! There Must Be an Easier Way! 


4.3 EXAMPLES OF THE USE OF ONE-DIMENSIONAL 
ARRAYS 


There are many more applications of one- and two-dimensional arrays in instruc- 
tional computing than just building lists or tables of names and scores. The 
following two programs give examples of some of these uses. 


4.3.1 PROGRAM 6: Searching Based on Optional Keys 


One use of one-dimensional arrays may be seen in PROGRAM 6, an expanded 
version of a search. In this program, a list of three prompts will be assigned to a 
one-dimensional array C$(C), where C = 1, 2, or 3. The appropriate prompt 
will be displayed, based upon the choice of search selected by the user. 

The program contains DATA representing names, hair color, eye color, and 
height in inches for ten hypothetical persons. The user of the program is given 
the choice of searching this DATA by hair color, eye color, or maximum height 
in inches. Following this option, a prompt is given for a key word upon which 
to base the search. A list of names, hair color, eye color, and height in inches 
matching the key word is displayed. The user is then given the option to do 
another search. 

This program is similar in concept to PROGRAMS 4 and 5 in Chapter 3 in 
which DATA is READ and IF-THEN statements are used to check for a match 
with a key word INPUT by the user. However, the program is expanded in a 
number of ways. Note the comments alongside the program listing. 


RUN from disk and refer to the listing and run of PROGRAM 6. 


JLOAD PROGRAM 6 


ILIST 

10 REM ssoeraseses2ze=z2ez=2==22 

20 REM PROGRAM 6 DESCRIPTION 
30 REM Seesseeez2e2z22=22 


40 REM “EXPANDED" SEARCH PROGRAM» 

SO REM ALLOWS SEARCH TO BE BASED UPON OPTIONAL 
KEYS, 

60 REM DATA CONTAINS NAME» HAIR COLOR» EYE 
COLOR,» HEIGHT IN INCHES. 

70 REM LAST DATA ELEMENT SEQUENCE IS XK sXoXoX, 

80 REM =S=S=SSSsss=ss=s2=5 

90 REM VARIABLE DICTIONARY 

100 REM ==S===Ss2s2s22s22522 

110 REM C - SEARCH OPTION CHOICE 

120 REM C$( ) - PROMPT FOR SEARCH KEY WORD 

130 REM ES - EYE COLOR 

140 REM F - COUNTER FOR THE NUMBER OF "FINDS" 
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150 REM H$% - HAIR COLOR 

160 REM I - LOOP COUNTER 

170 REM I - HEIGHT IN INCHES 
180 REM N® - NAME 

190 REM S# - SEARCH KEY WORD 


200 REM Be2eesezses2222=2 

210 REM ASSIGN THE OPTIONS 

220 REM sotssess22s2222+2 

230 C$(1) = "HAIR COLOR" 

240 C$(2) = “EYE COLOR" 

290 C$(3) = "MAXIMUM HEIGHT IN INCHES" 
260 REM Saassstssezssse2=2 


270 REM CLEAR THE SCREEN AND 
280 REM PRINT THE OPTIONS 


290 REM Sseees2222e2222=2=2 
300 F = 0 
310 HOME 


320 PRINT "DO YOU WISH TO SEARCH BY:" 
330 FOR I = 170 3 

340 PRINT " "SI5" "sC$(T) 

350 NEXT I 

360 PRINT "ENTER THE NUMBER OF YOUR CHOICE"; 
370 INPUT C 

380 REM ===OQOUT OF RANGE CHECK=== 

390 IF C < 1 THEN 360 

400 IF C > 3 THEN 360 

410 PRINT CS#(C)s5 

420 INPUT S$ 

430 PRINT "*#* SELECTION LIST ***" 

440 PRINT "NAME" >"HAIR EYES HEIGHT" 
450 PRINT "----"4"---- me een 7 
460 FOR I = 1 TO 50 

470 READ N&$ +H$ ES rIS 

480 IF N$ = "X" THEN 640 

490 REM SSS oseSe]s= 55> 

900 REM GO TO THE APPROPRIATE 

910 REM LINE TO CHECK FOR MATCH 

920 REM OF OPTION SELECTED 

S530 REM —7 ss 

940 ON C GOTO 550:570;:590 

990 =€6IF S$ = H$ THEN 600 

960 GOTO 630 

2970 IF S$ = ES THEN 600 

280 GOTO 630 

990 IF S$ < I$ THEN 630 


600 PRINT N$ HSS" "SESS" "STS 

610 REM ===COUNT THE NUMBER FOUND=== 
620 F = F + 1 

630 NEXT I 


640 PRINT 


230—250 assign values to string variables 
C$(1), C$(2), and C$(3). 


330—350 print search choices. 


370 assigns INPUT choice (1, 2, or 3) to 
variable C. 


390—400 ensure that value INPUT is in 
range 1-3. 


410 displays appropriate prompt, based 
upon value of C (e.g., if choice is 2, C 
has value 2; so C$(C) is C$(2), and 
“EYE COLOR” is printed at 410.) 


420 INPUTs user’s key word for search, 
assigning it to variable S$. 


540 transfers execution to appropriate 
IF-THEN statement for match checking. 
[E.g., if C = 2 (from choice made at 
370), transfer is to 570, where INPUT 
variable S$ is checked with E$, the eye 
color.] 


In particular, note 590. BASIC allows 
comparison of string variables for ‘less 
than,” ‘greater than,” ‘‘not equal to,”’ 
and so on. Just as a numeric value of 62 
is less than a numeric value of 63, the 
character ‘‘A’”’ is less than ‘‘B”’ which is 
less than ‘‘C’’, and so on. 


650 PRINT "THIS SEARCH FOUND "SF5" 
660 PRINT "DO ANOTHER (Y OR N)"S 
670 INPUT 2% 

680 IF 2% < > "¥" THEN 1000 

690 RESTORE 

700 GOTO 300 


710 DATA "MARY" +"BLACK" s"GREEN" +"62"s"BILL" + 


"BROWN" »"BROWN" +"70" 


720 DATA "SUE">"BLOND"s"GREEN"+"66"5"BOB" + 


"BLACK" »"GREEN" 5"72" 


730 DATA "JANE" +"BROWN" + "BROWN" »"69" "JACK" » 


"BLOND" »"GREEN" »"74" 


740 DATA "BETTY" +"BLACK"s"BLACK" s"6G6"s"FRED" + 


"BLACK" »>"BROWN" »"73" 


750 DATA "FRANCES",+"BLOND" +"BROWN" +"G4"5"BUCK" » 


"BLOND" »"GREEN" "68" 
760 REM === ROOM FOR MORE DATA === 
999 DATA Bye sy we en 


1000 PRINT "*### SEARCH COMPLETED **+#" 


1010 END 


JRUN 
(Clear screen] 


DO YOU WISH TO SEARCH BY: 

1 HAIR COLOR 

2 EYE COLOR 

3 MAXIMUM HEIGHT IN INCHES 
ENTER THE NUMBER OF YOUR CHOICE?1 
HAIR COLOR?BLOND 
¥#*¥* SELECTION LIST #*#* 


NAME HAIR EYES HEIGHT 
SUE BLOND GREEN 66 
JACK BLOND GREEN 74 
FRANCES BLOND BROWN 64 
BUCK BLOND GREEN 68 


THIS SEARCH FOUND 4 ENTRIES, 
DO ANOTHER (Y OR N)?Y 


[Clear screen] 


DO YOU WISH TO SEARCH BY: 
1 HAIR COLOR 
2 EYE COLOR 
3 MAXIMUM HEIGHT IN INCHES 


DIM It! There Must Be an Easier Way! 
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ENTER THE NUMBER OF YOUR CHOICE?S 
ENTER THE NUMBER OF YOUR CHOICE?0 
ENTER THE NUMBER OF YOUR CHOICE?2 
EYE COLOR?HAZEL 

#*¥* SELECTION LIST #*** 

NAME HAIR EYES 


HEIGHT 


THIS SEARCH FOUND O ENTRIES. 
DO ANOTHER (Y OR N)?Y 


[Clear screen] 


DO YOU WISH TO SEARCH BY: 

1 HAIR COLOR 

2 EYE COLOR 

3 MAXIMUM HEIGHT IN INCHES 
ENTER THE NUMBER OF YOUR CHOICE?2 
EYE COLOR?BROWN 
*#** SELECTION LIST *** 


NAME HAIR EYES HEIGHT 
BILL BROWN BROWN 70 
JANE BROWN BROWN 69 
FRED BLACK BROWN 793 
FRANCES BLOND BROWN 64 


THIS SEARCH FOUND 4 ENTRIES. 
DO ANOTHER (Y OR N)?Y 


[Clear screen] 


DO YOU WISH TO SEARCH BY: 

1 HAIR COLOR 

2 EYE COLOR 

3 MAXIMUM HEIGHT IN INCHES 
ENTER THE NUMBER OF YOUR CHOICE?3 
MAXIMUM HEIGHT IN INCHES?66 
#*%* SELECTION LIST *#* 


NAME HAIR EYES HEIGHT 
MARY BLACK GREEN 62 
SUE BLOND GREEN’ 66 
BETTY BLACK BLACK’ G6 
FRANCES BLOND BROWN 64 


THIS SEARCH FOUND 4 ENTRIES, 


DO ANOTHER 


(Y OR N)?N 


*¥** SEARCH COMPLETED *#+* 


DIM It! There Must Be an Easier Way! 


4.3.2 PROGRAM 7: Random Selection from a List 


Another common use of one-dimensional arrays in instructional computing 
is in building lists of information for retrieval. These lists contain information, 
such as names, classification, and addresses; questions, answers, and hints for a 
given concept or topic; numerical data for analysis; and so on. Our next program 
illustrates one method of building lists and then randomly selecting items of 
information from them. 

The primary purpose of this program is to demonstrate building one-dimen- 
sional string arrays (lists) and then randomly selecting from the lists. A user is 
given the option of making the length of the list from 3 to 15 elements. The lists, 
containing names and sex, are then made via INPUT statements. The user then 
has the option of selecting the number of names to be randomly selected from 
the list, with each randomly selected name appearing only once. This randomly 
selected list and the complete list of all names are printed. 


RUN from disk and refer to the listing and run of PROGRAM 7. 


JLOAD PROGRAM 7 


JLIST 

10 REM =Hs2=2=2555555== 10-290 briefly describe the purpose of 
20 REM PROGRAM 7 DESCRIPTION the program and the variables used. 
30 REM — o_o — ee 


40 REM PROGRAM DEMONSTRATES THE 

YO REM USE OF 1-DIMENSIONAL STRING 
60 REM ARRAYS,» DIM STATEMENTS: 

70 REM AND RANDOM SELECTION 

80 REM WITHOUT REPETITION. 


90 REM a ee 
100 REM VARIABLE DICTIONARY 
110 REM 2 — 


120 REM N - NUMBER OF NAMES IN A LIST 
(VIA INPUT) 

130 REM N$( ) - HYPOTHETICAL NAMES 

140 REM §S§ - NUMBER OF NAMES RANDOMLY 

150 REM SELECTED (VIA INPUT) 

160 REM S$( ) - SEX (MALE OR FEMALE) 

170 REM X - SOME RANDOM NUMBER 

180 REM 2(X) - FLAG FOR SELECTED 

190 REM RANDOM NUMBER 

200 REM IF 2(X) = 0» NUMBER HAS 

210 REM NOT BEEN RANDOMLY SELECTED 

220 REM IF Z(X) = 1+ NUMBER HAS BEEN 

230 REM SELECTED AND PRINTED 

240 REM —s—.— i.e oe ee 

290 REM DIMENSION THE VARIABLES. 

260 REM CLEAR THE SCREEN, 

270 REM GET SOME NAMES 
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280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
310 
320 
930 
240 
990 
960 
370 
980 
090 
600 
610 
620 
630 
640 
650 
660 
670 
G80 
690 
700 
710 
720 
730 
740 
790 
760 
770 


REM AND SEX INPUT. 

REM SesssSseeeee=252=5 

DIM N$(15) »S$(15) »2(015) 

HOME 

PRINT "HOW MANY NAMES DO YOU WISH TO ENTER" 
PRINT "(AT LEAST 3 BUT NO MORE THAN 15)" 
INPUT N 

IF N < 3 OR N > 15 THEN 320 

FOR I = 1 TO N 

REM ===INITIALIZE THE FLAG=== 
z(I) = 0 

PRINT "NAME NUMBER "315 

INPUT NS#(I1) 

PRINT "SEX (M OR F)"s 

INPUT S$(1) 

NEXT I 

PRINT "OF THE "3N5" NAMES: WHAT NUMBER" 
PRINT " DO YOU WISH TO RANDOMLY SELECT" s 
INPUT §S 

REM ===ENOUGH AVAILABLE?=== 

IF S < = N THEN 510 

PRINT "IMPOSSIBLE! YQU ONLY ENTERED "sN5"!" 
GOTO 440 

PRINT 

PRINT Ss" RANDOMLY SELECTED NAMES:" 
PRINT "NUMBER" +"NAME" s"SEX" 

PRINT "------ i rn 

REM —.— i 

REM SELECT THE NAMES 

REM AT RANDOM 

REM oa eee 

FOR I = 170 § 

REM ===GET A RANDOM X VALUE=== 
X = INT (N * RND (1) + 1) 

REM ===HAS X APPEARED BEFORE?=== 

IF Z2(X) = 0 THEN 660 

PRINT "NUMBER "3X3" SELECTED AGAIN," 
GOTO 610 
2(x) = 1 

PRINT XoN$(X) 2SS(XK) 

NEXT I 

PRINT 

PRINT "THE COMPLETE LIST IS:" 

PRINT "NUMBER" »"NAME" "SEX" 

PRINT "------ i i ee 

FOR I = 1 TON 

PRINT I »NS(TI) »S$(T1) 

NEXT I 

PRINT "x * * DONE * * #" 

END 


300 DIMensions (Section 4.4.1) length 
of one-dimensional arrays (lists) to 
maximum of 15 elements. 


320—340 allow user to define number of 
elements in list. 


350 shows how one IF-THEN statement 
may be used to check for both minimum 
or maximum values. 


360—430 request a name [assigned to 
N§$(I)] and sex [assigned to S$(I)] for 
each list element. 


440-500 give user the option of defining 
number of random selections to be 
made from list just entered. 


5 10-540 print heading for lists of 
randomly selected items. 


590—680 print lists of randomly selected 
numbers, names, and sexes. 


590 defines S (number of names 
selected) to be upper limit of loop. 


610 assigns X some random value 
between 1 and N (number of names in 
complete list). 


630 checks value of Z(X). If Z(X) = 0 
{all values of Z(X) initialized to zero in 
380], random number represented by X 
not previously used; so transfer is to 
660, where Z(X) set to 1. If Z(X) = 1, 
random value X appeared previously; 
640 then displays message illustrating 
that numbers may be randomly selected 
more than once. 650 then transfers 
execution to 610 where another random 
value is generated. 


670 prints values of X, N$(X), S$(X). 
Loop continues at 680 until completion. 


After randomly selected list is printed, 
700—760 print complete list of names 
and sex; program then ends. 


JRUN 
[Clear screen] 


HOW MANY NAMES DO YOU WISH TO ENTER 
(AT LEAST 3 BUT NO MORE THAN 15) 
7100 

HOW MANY NAMES DO YOU WISH TO ENTER 
(AT LEAST 3 BUT NO MORE THAN 15) 
?7 

NAME NUMBER 1?FRANK 

SEX (M OR F)?M 

NAME NUMBER 2?FRAN 

SEX (M OR F)?F 

NAME NUMBER 3?BILL 

SEX (M OR F)?M 

NAME NUMBER 4?BARB 

SEX (M OR F)?F 

NAME NUMBER 5?BUCK 

SEX (M OR F)?M 

NAME NUMBER 6?PAM 

SEX (M OR F)?F 

NAME NUMBER 7°?GH 

SEX (M OR F)?M 

OF THE 7 NAMES, WHAT NUMBER 


DO YOU WISH TO RANDOMLY SELECT?10 


IMPOSSIBLE! YOU ONLY ENTERED 7! 
OF THE 7 NAMES» WHAT NUMBER 
DO YOU WISH TO RANDOMLY SELECT?4 


Q RANDOMLY SELECTED NAMES: 


NUMBER NAME SEX 
6 PAM F 
4 BARB F 
re) BUCK M 
7 GH M 


THE COMPLETE LIST IS: 

NUMBER NAME SEX 
FRANK 
FRAN 
BILL 


*nNI OWN BAN = 
oO @ 
a > 
0 Az 
x 
=znsznszns 


* * DONE * * # 


DIM It! There Must Be an Easier Way! 
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4.3.3 Use of a Flag for Nonrepetitive Random Selection 


In PROGRAM 7, all values for Z(X) are initialized to zero (statement 380) 
as the name and sex information is INPUT. A partial list of the information INPUT 
in the sample RUN of PROGRAM 7 would be: 


x N$(X) S$(X) Z(X) 
] Frank M 0 
2 Fran F 0 
3 Bill M 0 
4 Barb F 0 


If, for example, a random value for X is 3 (statement 610), Z(3) is set to 1, 
and the list would now be: 


x N$(X) S$(X) Z(X) 
] Frank M 0 
2 Fran F 0 
3 Bill M ] 
4 Barb F 0 


Since Z(3) is now equal to 1, any subsequent random value where X is equal to 
3 would cause statements 630—650 to transfer execution back to statement 610, 
where another random value for X would be generated. Therefore, any randomly 
selected name in this program example will be displayed only one time. 


4.4 BASIC STATEMENTS FOR THIS CHAPTER 


4.4.1 Statement DIM 


Purpose DIMensions (defines the size needed) for one-dimensional 
and two-dimensional arrays. On most BASIC systems, it is not necessary to use 
the DIM statement unless the array will contain more than ten elements. Most 
systems automatically allocate space for ten or less elements. However, it is good 


DIM It! There Must Be an Easier Way! 


programming practice to DIMension all arrays, even those containing ten or less 
elements. 


Examples: DIM N%#(12) 


(Dimensions space for a list of 12 string variables.) 
DIM S(20%3) 
(Dimensions space for a 20-row, 3-column table containing numeric data.) 


4.4.2 Statement Pair GOSUB-RETURN 


Purpose This statement pair is very useful for programs in which a 
sequence of statements is repeated several times throughout program execution. 
Whenever GOSUB is encountered, program execution is transferred to the state- 
ment number specified in the GOSUB. Execution continues from that statement 
until the RETURN statement is encountered. Execution is then transferred 
(RETURNed) to the statement number immediately following the GOSUB state- 
ment that caused the transfer in the first place. 

A typical example in instructional computing would be an answer-checking 
sequence for student input in a program containing several questions. Rather 
than writing an identical answer-checking sequence for each question, it is writ- 
ten only once as a subroutine. GOSUB may then be used after each question to 
check the answer. 


Example: 10 PRINT "CAPITAL OF TEXAS"; 
20 AS = "AUSTIN" 
30 GOSUB 200 
40 PRINT "X MARKS THE --?--"5 
90 AS = "SPOT" 
60 GOSUB 200 
70 GOTO 300 
200 INPUT R$ 
210 IF R#& = AS THEN 240 
220 PRINT "NOPE..-IT‘S "sA$% 
230 GOTO 250 
240 PRINT “OHHH»s MARVELOUS!" 
290 RETURN 
300 PRINT +"BYE-BYE..." 
310 END 


Mentally execute this program before entering and RUNning it. Why is statement 
70 needed? 


4.4.3 PROGRAM 8: Question Sets and Hints, Using 
GOSUB-RETURN Statements 


The following program illustrates the use of GOSUB-RETURN in a ‘‘muscle 
quiz.’’ Note that alternate correct answers are used, note how the questions, 
additional hints, and answers are assigned and presented, and note that credit is 
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given for only those answers that are correct on the first try. Mentally outline 
the execution of this program carefully: Unlike previous programs, PROGRAM 


8 does not have explanatory comments accompanying it. 


RUN from disk and refer to the listing and run of PROGRAM 8. 


JLOAD PROGRAM 8 


JLIST 

10 REM Srosrtssesss222222+ 

20 REM PROGRAM 8 DESCRIPTION 
30 REM Bareesese222222=2 


40 REM PROGRAM DEMONSTRATES THE USE OF 
90 REM GOSUB-RETURN,» CHECKING FOR 

60 REM SYNONYMOUS CORRECT ANSWERS» AND 
70 REM THE USE OF ON-GOTO FOR HINTS, 


80 REM Se2eateestess22z222 
SO REM VARIABLE DICTIONARY 
100 REM Serterss2s222222=2 


110 REM C - CORRECT ANSWER COUNTER 
120 REM C% - SYNON. CORRECT ANSWER 
130 REM D$ - SYNON. CORRECT ANSWER 
140 REM E% - SYNON. CORRECT ANSWER 
150 REM F - FLAG FOR MISS ON 1ST TRY 
160 REM X - QUESTION NUMBER COUNTER 


170 REM SSS SSS 55255=2 = 

180 HOME 

190 PRINT " MUS CLE QOutlr 2" 
200 PRINT 

210 REM HBaeterese22222=H= 


220 REM PRINT THE QUESTION. DEFINE 

230 REM THE QUESTION NUMBER AND THE 

240 REM ANTICIPATED CORRECT ANSWERS. THEN 
2590 REM GO TO THE SUBROUTINE FOR INPUT. 


260 REM S=SsSSSeSseese= 

270 REM 

280 PRINT "WHAT IS THE LARGEST MUSCLE" 
290 PRINT " IN THE HUMAN BODY "s 

300 X = 1 

310 C$ = "GLUTEUS MAXIMUS" 

320 D$ = "BUTTOCKS" 

330 ES = "DERRIERE" 

340 GOSUB 5000 

350 REM SssSSSSS522-2=== 


360 REM REPEAT THE QUESTION AND 
370 REM ANSWER SEQUENCE AGAIN 
380 REM iso ee eg 
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390 PRINT “WHAT MUSCLE IS CONSIDERED BY SOME" 


400 PRINT " TO HAVE AN ORIGIN" 
410 PRINT "BUT NO INSERTION "$ 
420 X = 2 

430 REM ===ONLY ONE ANSWER=== 
440 C$ = "TONGUE" 

450 D$ = C$ 


460 E$ = C$ 

470 GOSUB 5000 

480 REM Ses 265 =s22S52>5 55 

490 REM REPEAT THE PROCESS 
900 REM FOR A FINAL QUESTION 


S510 REM Seese sos =2s+s 25 

920 PRINT "WHAT MUSCLE HAS MADE MARK EDEN RICH»" 
930 PRINT " OLD MEN LEER" 

940 PRINT "AND WEIGHT LIFTERS STRUT "$ 

990 X = 3 

960 C$ = "PECTORAL" 

9/70 DS = "PECTORALIS MAJORA" 

980 ES = "PECTORALS" 

290 GOSUB 5000 

600 REM See essesseeeeesea= 


610 REM THERE’S PLENTY OF ROOM 

620 REM TO ADD MORE QUESTIONS AND 
630 REM ANSWERS FOLLOWING THE SAME 
640 REM SEQUENCE AS ABOVE. 

650 REM HINTS WOULD NEED TO BE 

660 REM ADDED TO THE SUBROUTINE. 


670 REM Ssertesssee222===2 
680 REM 
690 REM Beescsets2z222222=e= 


700 REM STATEMENT 4990 IS NEEDED 
710 REM TO SKIP THE SUBROUTINE» 

720 REM GIVE THE PERFORMANCE SCORE » 
730 REM AND END THE PROGRAM. 

7a0 REM SSS SSses2e=2=2=22=2 

4990 GOTO 5270 

9000 INPUT A$ 

9010 IF A$ = C$ THEN 5200 

9020 IF AS = DS THEN 5200 

9030 IF AS = ES THEN 5200 


5040 REM ===MISSED BEFORE? (F=1)=== 

5050 IF F = 1 THEN 5170 

S060 F = 1 

5070 REM ===GIVE HINT FOR QUEST 1+2) OR 3=== 


9080 ON X GOTO 5090151205140 


9090 PRINT "SOME AUTHORITIES SAY WOMEN FIRST 
NOTICE" 


9100 PRINT "THIS... NOW TRY AGAIN. ++" 
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9110 GOTO 5000 

9120 PRINT "ON SOME,» IT WAGS ALOT. NOW TRY..." 
9130 GOTO 5000 

9140 PRINT "PALM-TO-PALM PRESSURE DEVELOPS THIS" 
9150 PRINT "MUSCLE. TRY IT AGAIN..." 

%160 GOTO 5000 

9170 PRINT "A CORRECT ANSWER IS "5C$% 

9180 GOTO 5240 

9190 REM ===NO CREDIT GIVEN IF MISSED 1ST TRY=== 
9200 IF F = 1 THEN 5220 

9210 C = C + 1 

9220 PRINT "0.K." 

9230 REM ===SET F TO ZERO BEFORE NEXT QUESTION=== 
9240 F = 0 

9290 PRINT 

9260 RETURN 

9270 PRINT 

9280 PRINT "YOU GOT "C5" CORRECT ON THE FIRST TRY." 
9290 PRINT +s"THAT’S ALL..." 

9300 END 


JRUN 
[Clear screen] 
MUS CLE Quill 2 


WHAT IS THE LARGEST MUSCLE 
IN THE HUMAN BODY ?HEAD 
SOME AUTHORITIES SAY WOMEN FIRST NOTICE 
THIS... NOW TRY AGAIN... 
?BICEPS 
A CORRECT ANSWER IS GLUTEUS MAXIMUS 


WHAT MUSCLE IS CONSIDERED BY SOME 
TO HAVE AN ORIGIN 

BUT NO INSERTION ?BICEPS 

ON SOME, IT WAGS ALOT. NOW TRY.o- 

?TAIL 

A CORRECT ANSWER IS TONGUE 


WHAT MUSCLE HAS MADE MARK EDEN RICH: 
OLD MEN LEER 

AND WEIGHT LIFTERS STRUT ?CHEST 

PALM-TO-PALM PRESSURE DEVELOPS THIS 

MUSCLE. TRY IT AGAIN... 

?PECTORALS 

O.Ke 


YOU GOT O CORRECT ON THE FIRST TRY. 
THAT’S ALLe«. 


JRUN 
[Clear screen] 


MUS CLE QUIZ 


WHAT IS THE LARGEST MUSCLE 

IN THE HUMAN BODY ?GLUTEUS BIGGEST 
SOME AUTHORITIES SAY WOMEN FIRST NOTICE 
THIS... NOW TRY AGAIN... 
PCGLUTEUS MAXIMUS 
O.K. 


WHAT MUSCLE IS CONSIDERED BY SOME 
TO HAVE AN ORIGIN 

BUT NO INSERTION ?TONGUE 

O.K. 


WHAT MUSCLE HAS MADE MARK EDEN RICH» 
OLD MEN LEER 


AND WEIGHT LIFTERS STRUT ?PECTORALIS MAJORA 


O.K. 


YOU GOT 2 CORRECT ON THE FIRST TRY. 
THAT’S ALL. 


4.5 POSERS AND PROBLEMS 


DIM It! There Must Be an Easier Way! 


1. Assume you have a class of 20 students and the semester test average 
and final exam scores for each. Outline the BASIC statements that would 


make a series of lists of this information. 


2. Outline the BASIC statements that will read 3 scores for each of 25 


students into a two-dimensional array. 


3. Write a brief paragraph outlining the execution of the program consisting 


of the combined statements of Section 4.2.2. 


4. Describe what would result from execution of the following BASIC 


Statements: 


10 DATA "TEXAS" »"OKLAHOMA" »"KANSAS" »"NEVADA" »"UTAH" 


20 FOR I = 1 T0 5 

30 READ S$(T) 

40 NEXT I 

90 FOR K = 1 TO 3 

60 X = INT(S#RND(1)+1) 
70 PRINT S$#(X) 

B80 NEXT K 

90 END 
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5. 


How would adding the following statements affect the execution of the 
program in Problem 4? 


34 Z(1) = 0 
64 IF Z(X) = 1 THEN 60 
66 2Z2(X) = 1 


Describe the execution of the program in Problem 5 if statement 50 is 
changed to 


20 FOR K = 1 TO 6 


Think this through carefully before entering and RUNning. Remember, 
CTRL-C (CONTROL and C keys depressed simultaneously) will halt a 
runaway program! 


How would you modify the program in Section 4.4.2 to print a hint as 
a response for the first miss and give the correct answer on the second 
miss? [Hint: One way to do this is shown in PROGRAM 8. Another way 
is to assign the hint to, say, H$ and use an IF-THEN (IF F = 1 THEN...) 
to either give the hint (F = 0) or the correct answer (F = 1).] 


Write a program that creates five random sentences from lists of subjects, 
verbs, and objects. 


Write a program to choose and print four random numbers between 1 
and 10 without repeating any number that has been printed. 
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“’Tis an old tale, and often told.” 
—Walter Scott 


“And look before you, ere you leap; 
For as you sow, y’ are like to reap.” 
—Samuel Butler 


Think About This ( for Fun) 


Four men are on a raft in the middle of the ocean. Each has one carton of 
cigarettes but no means whatsoever of lighting them. The smartest of the four, 
however, devotes his full mental prowess to the problem and, within minutes, 
all are smoking a cigarette. How was this accomplished? 


Think About This (Seriously 


Could the role of the teacher change as computers become common in our 
schools? If so, how do you see this new role? 


Chapter 


Relax and Catch Your 
BASIC Breath 


3.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
Design, enter and RUN a minimum of three short programs using the 
BASIC statements summarized below. 
>.4 BASIC STATEMENTS: A SUMMARY AND SOME 
TYPICAL USES 


AS an examination of any BASIC text or manual will show, there is more to the 
language than has been discussed so far. To this point, there has been presented 
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nothing more than just a brief introduction to the basics of BASIC. Although 
there is much more (some of which will be presented in later chapters), the 
statements and commands discussed to this point do provide a foundation for 
instructional computing applications. 

This chapter summarizes these statements and provides a very general out- 
line for their use in designing application programs. This summary must be gen- 
eral in illustrating applications since, as in any writing endeavor (programming 
or otherwise), the author's creativity is the limiting factor. The BASIC statements 
provide only the means by which programs can be constructed. The content, 
design strategies, effectiveness, and applicability of programs are the end result 
of creativity. Programs can only be as good—or as bad—as this factor. 

Note: Many of the following examples are actually program fragments that 
may be referenced for future program development. 


5.2.1 PRINT 


Displays (outputs) information 


Some typical uses Example 
Output text PRINT "WHAT‘’S YOUR NAME"$ 
Text + numeric variable PRINT "SCORE IS "S$" PERCENT" 
Text + string variable PRINT "HELLO» "“SNS3"!" 
Numeric with spacing PRINT A»BsC 
String (close-packed) PRINT N$3S$5A$ 
5.2.2 LET 


Assignment of a value to a variable 


Some typical uses Example 
Counters C= t + 1 
Assigning correct answers A$ = "AUSTIN" 
A= Y # Z 
Assigning hints H$=""RIVER CITY’" 
Computation S = C * 100/09 
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5.2.3 INPUT 


Receives information (input) from keyboard and assigns to defined variables 


Some typical uses Example 
Numeric input INPUT N 
String input INPUT N& 
Combinations INPUT N$ oN 


INPUT Ks#¥o2 


9.2.4 GOTO 


Unconditional branch (transfer of execution) to a specified statement number 


Some typical uses Example 


Skipping statements 100 GOTO 130 
110 PRINT "VERY GOOD!" 
120 C = C + 1 
130 PRINT "NEXT QUESTION..." 


Returning for input 100 INPUT R 


150 PRINT "NO» TRY AGAIN..." 
160 GOTO 100 


(Note: The : denotes omitted program segments.) 


3.2.9 IF-THEN 


Conditional branch to specified statement number if the defined condition is true 


Some typical uses Example 


Answer checking 100 IF R%=A$ THEN 1390 
110 PRINT "NO» THE ANSWER IS "S$A$% 
120 GOTO 140 
130 PRINT “GOOD SHOW!" continued 67 


An Introduction to the BASIC Programming Language 


Determining the 140 IF F = 1 THEN 160 
sequence of execution i50 C = C +1 
160 PRINT " NEXT QUESTION..." 


100 IF R < 40 THEN 140 
110 IF R > 40 THEN 160 


140 PRINT "TOO LOW..." 


160 PRINT “TOO HIGH..." 


100 IF F = 1 THEN 200 
110 F = 1 
120 PRINT "HERE’S A HINT..." 


200 PRINT "THE CORRECT ANSWER IS " 


100 IF AS = "STOP" THEN 800 


800 PRINT "HERE’S YOUR SCORE..." 


5.2.6 ON-GOTO 


Branch to a specified statement, based on the value of a defined variable or expression 


Some typical uses Example 


Branch to a randomly 


selected question 
100 X = INT (5S * RND (1) + 1) 
3 


150 ON K GOTO 200:300 +400 1500 »600 


200 PRINT "QUESTION 1..." 


300 PRINT "QUESTION 2..." 


68 : 


q 


A 


Relax and Catch Your BASIC Breath 


Branch to a hint for ‘ 

a given question ‘ 
100 PRINT "QUESTION 1..." 
110 Q = 1 


900 INPUT R$ 


990 PRINT "HERE’S A HINT..." 
9GO ON Q GOTO 700 +800 +900 


700 PRINT "HINT FOR QUESTION 1..." 
710 GOTO 3500 


5.2.7 DATA-READ (Statement pair) 


Stores and assigns (READs) information to a defined variable 


Some typical uses Example 


Assignment of question 100 REM *##* Q$=QUES AS=ANS HS$=HINT 
answer and hint 110 DATA "TEXAS" »"AUSTIN" "RIVER CITY" 


o 


¢ 
° 


200 READ 9$ 5A$ +H 


Assignment of numerical 100 DATA 90+76+55,70,88,93 
information 


150 READ $1 5S952553 
160 T = T + Si + S2 + §3 


200 READ S152 ,S93 
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5.2.8 FOR-NEXT (Statement pair) 


Repeats (loops) statement sequence between the FOR and the NEXT a defined number of times 


Some typical uses 


Assigning data to arrays 


Checking response to match 


any defined answer 


Defining the number of 
questions to be asked 
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Example 

200 PRINT “NUMBER OF SCORES"; 

210 INPUT N 

220 FOR I = 1 TON 

230 PRINT "SCORE" $ 

240 INPUT S(1) 

290 T = T + S(T) 

260 NEXT I 

270 A = T/N 

280 PRINT “AVERAGE SCORE IS "3A 
100 DATA "QUES 1","ANS 1">5"HINT 1" 
110 DATA "QUES 2","ANS 2"5"HINT 2" 
200 FOR I = 1 TO 10 

210 READ QO$(I) »sAS(I) sHSC(T) 

220 NEXT I 

200 FOR I = 1 TO 10 

210 IF RB = AS(I) THEN 240 

220 NEXT I 

230 GOTO 500 

240 PRINT "MATCHES ANS NO. “$I 
100 PRINT "HOW MANY DO YOU WANT"; 
110 INPUT P 

120 IF P < 26 THEN 150 

130 PRINT "THAT’S TOO MANY!" 

140 GOTO 100 

150 FOR I = 1 TO P 

160 PRINT "PROBLEM NUMBER "3$P 

300 NEXT I 


5.2.9 GOSUB-RETURN (Statement pair) 
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GOes to the statement number defining the SUBroutine, executes the statements in sequence 
until RETURN is executed, and then returns to the statements following the GOSUB 


Some typical uses 


Answer-checking 
sequence 


100 
105 
110 
120 
125 
130 
2000 
2010 


i 
° 
o 


2080 
2090 
2100 


Generating random numbers . 


Example 


PRINT "QUESTION 1..." 


A$ = "ANSWER 1" 
GOSUB 2000 


PRINT "QUESTION 2..." 


AS = "ANSWER 2" 
GOSUB 2000 


INPUT R$ 


IF R$ = AS THEN 2080 


C=C +i 


PRINT "HOT-DOGGIES!" 


RETURN 


GOSUB 3500 
PRINT "IF MASS = 


AND" 


PRINT "VOLUME = "S¥5"5 DENSITY ="s5 


INPUT R 
IF R = Z THEN 200 


X/Y¥ 
ETURN 


x 
Y 
2 
R 


INT (1000 * RND(1) 
INT (S00 #* RND(1) 


+ 1)/100 
+ 1)/10 
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Generating random 10 DATA "GOOD" »"GREAT" »"WOW" 
responses 20 FOR I = 1703 

30 READ R$(1I1) 

40 NEXT I 


Y00 GOSUB 750 


i] 
] 
e 


750 X = INT(3 * RND(1) + 1) 
760 PRINT RS(XK)5"!" 
770 RETURN 


5.3 A SUMMARY OF THE PURPOSES OF BASIC 
STATEMENTS 


Although there is much more to the BASIC language, the statements summarized 
in this chapter are, nonetheless, the fundamental statements used in constructing 
instructional computing programs. In essence, these statements form the foun- 
dation upon which a program author has: 

I. Some means of assigning and/or displaying values. 

2. Some means of controlling the sequence of execution. 

3. Some means of easing repetitious tasks. 


Thus, most of the BASIC statements discussed to this point may be further 
summarized into three categories: 


Assignment Control Repetition 
PRINT GOTO FOR-NEXT 

LET IF-THEN GOSUB-RETURN 
INPUT ON-GOTO 

DATA-READ 


This further generalization can be helpful in the initial design stages of pro- 
gram development. Once the category for a particular design task is identified, 
it becomes a matter of selecting the appropriate statements and defining their 
sequence of execution. 
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5.4 POSERS AND PROBLEMS 


I. Assume a program is to be designed that gives credit for a correct answer 
only if it is answered correctly on the first attempt. Outline the statements 
needed to accomplish this. 

2. Assume a program is to be designed that gives a hint on the first miss 
and the correct answer on the second miss. Outline the statements needed 
to accomplish this. 

3. Assume 5 questions are to be randomly selected from a one-dimensional 
array containing 10 questions without repetition of any question during 
a given RUN. Outline the statements needed to accomplish this. (Hint: 
See Problems 4 and 5 in Chapter 4.) 

4. Assume a program is to be designed that: 


1. Stores 15 questions, 15 answers, 15 hints, 3 positive responses, and 
3 negative responses in one-dimensional arrays. 


2. Will ask a total of 8 questions. 

3. Will randomly select each question. 

4. Will not repeat any question. 

5. Will give a random positive response if correct. 


6. Will give a random negative response and an appropriate hint for the 
first miss. 


7. Will give the correct answer on the second miss. 


8. Will give the number of correct answers at the conclusion of the 
interaction. 


Outline the statements needed to accomplish each of the above steps. 
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“The opportunities of man are limited only by his 
imagination. But so few have imagination that there 
are ten thousand fiddlers to one composer.” 
—cCharles F Kettering 


“The most beaten paths are certainly the surest; but do 
not hope to scare up much game on them.” 
—André Gide 


“All that glitters is not gold.” 
—William Shakespeare 


Think About This ( for Fun) 


Read this sentence slowly: “Finished files are the result of years of scientific study 
combined with the experience of years.” Now, once and only once, count out 
loud the F’s (and f’s) in that sentence. How many are there? 


Think About This (Seriously ) 


Should at least one course in “Computer Literacy” be required for teacher cer- 
74 tification in any area? 


Show and Tell 


6.1 OBJECTIVES 


For the successful completion of this chapter, you should be able to: 


a 


Describe the purpose or application of instructional computing programs 
that are: 

. problem solvers 

. drill and practice 

tutorial (dialog) 

simulation 

testing 

(Sections 6.3—6.7). 


ean op 


Describe in outline form the sequence of execution for each of the exam- 
ple programs or program fragments in this chapter. 75 
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6.2 SOME EXAMPLE PROGRAMS AND 
PROGRAMMING STRATEGIES 


One of the important factors determining the success or failure of a given human 
endeavor is the amount of imagination (originality, creativity, innovation, etc.) 
that goes into it. This applies not only to education in general and the instruc- 
tional process in particular but also to the use of computers in instruction (in 
general) and the successful design and development of instructional computing 
programs (in particular). 

In Chapter 8, specific steps will be discussed in which imagination will have 
an opportunity to spring forth. Before these steps are discussed, however, exam- 
ine a few sample programs and program fragments that give an introduction to 
strategies and techniques for five methods in which instructional computing may 
be applied. 

As these programs are examined, please keep in mind the quotations at the 
beginning of this chapter. These example programs are limited—by imagination 
and space. They are not meant to be the “well-beaten path” for those who choose 
to follow one. Also, they are certainly not meant to reflect the “gold” of instruc- 
tional computing applications. However, they might plant an “imaginative seed” 
to allow one to reach heights of greater glory and reward in developing instruc- 
tional computing programs. 

Many of the examples are trivial in content. This is done intentionally because 
the content is not the point to be made: Rathcr, the programs illustrate some of 
the strategies that may be used in designing instructional computing programs. 
The content is left to the individual author who might use or expand upon these 
Strategies. 

Although some of the examples may be related to a specific discipline, this 
should be considered only as a “illustrative vehicle.” In many cases, the peda- 
gogical strategy used in the program could be applied in general, even though 
the content may be specific. 


6.2.1 A Note About REM Statements 


REM statements are very important for documenting a program listing. If 
carefully used in the program, they allow the reader to follow the sequence of 
program “events” with greater ease; their use makes the program more readable 
to the eye. For this reason, REM statements are extensively used in the following 
example programs. Hopefully, they will allow the user (particularly the begin- 
ning user) to better visualize a program’s design and strategy. 

This extensive use of REM statements may give the impression that the exam- 
ple programs are overly long and complicated. This is not the case. If the REM 
statements were removed, most of the example programs would be less than 50 
to 75 statements long. Remember, then, that the REM statements are there to 
help explain the program as the listing is examined. 

It should also be mentioned that REM statements, just like any other state- 
ments, require space in the system's memory. If the memory available in a system 


is limited and the program design is lengthy, judicious use of REMs should be 
made. 

Finally, and perhaps foremost, keep in mind that many of these example 
programs may be easily modified and expanded for actual class use. The REM 
statements in the listings will help explain how to do this. 


6.3 PROBLEM-SOLVING APPLICATIONS 


The heaviest use of instructional computing to date is that of problem solving— 
writing computer programs to solve specific discipline-oriented problems. This 
particular application, for all practical purposes, has no limits. It could be finding 
the roots of a quadratic equation in mathematics, calculating lunar orbits in 
physics, solving gas-law problems in chemistry, analyzing voting behavior in 
sociology, determining circulation trends in library science, and so on. 


6.3.1 PROGRAM 9: Compound Interest 


Most, if not all, problem-solving programs are based upon some formula or 
mathematical expression. Known parameters (elements) of the expression are 
input or read from data and the solution to an unknown parameter is calculated 
and output. PROGRAM 9 illustrates a business-oriented problem related to the 
return on invested capital. The known parameters are: 

1. A given principal amount to be invested. 

2. A given interest rate. 

3. A given number of compounding periods per year. 

4 


A given number of years. 

The future value is calculated and displayed, based on the following formula: 
Vi=P* (1 + (I/N)) * (N#Y) 
where 

V = future value of the investment 

P =principal amount invested 

I =interest rate (decimal) 

N =number of times the interest rate is compounded annually 


Y =number of years the principal is invested 


Remember, in the above formula and in statement 210 of the program, the caret 
is the Apple’s way to ‘‘raise to the power of.” 


RUN from disk and refer to the listing and run of PROGRAM 9. 


Show and Tell 
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JLOAD PROGRAM 9 
JLIST 


10 REM PROGRAM 9 

20 REM Sessa sssazteseee: 

30 REM PROBLEM SOLVING: THIS PROGRAM 
40 REM CALCULATES FUTURE VALUES OF 
90 REM INVESTMENTS. DEMOS ‘FLASH’ 

60 REM AND ‘NORMAL’ STATEMENTS. 


70 REM fSese2es2222222222 

80 HOME 

90 PRINT " INVESTMENT FUTURE VALUES" 
100 PRINT 


110 PRINT “WHAT IS THE AMOUNT INVESTED"; 
120 INPUT P 

130 PRINT "AT WHAT INTEREST RATE (%)"5 
140 INPUT I 

150 PRINT "TIMES COMPOUNDED PER YEAR"; 
160 INPUT N 

170 I = I / 100 

180 PRINT "FOR HOW MANY YEARS" 3 

190 INPUT Y 

200 REM ===FORMULA FOR CALC=== 

210 V = P * (1 + (IT / ND) * (N * Y) 

220 PRINT "ITS FUTURE VALUE WOULD BE "5 


230 REM ===SET THE FLASH DISPLAY=== 
240 FLASH 
250 REM —_--—.— 2-4 — 2 


260 REM MULTIPLY THE VALUE OF V BY 10035 THEN 
270 REM GET THIS INTEGER VALUE$s THEN DIVIDE 
280 REM BY 100. THIS GIVES A VALUE TO 2 DECIMAL 


PLACES, 
290 REM sostsessss\2\e\eer 
300 PRINT "$"$ INT (V *# 100) / 100 
310 REM ===SET BACK TO NORMAL DISPLAY=== 
320 NORMAL 
330 PRINT 


340 PRINT "CALCULATE ANOTHER (Y OR N)"$ 
350 INPUT A$ 

360 IF AS = "YY" THEN 100 

370 END 

JRUN PROGRAM 9 

[Clear screen] 


INVESTMENT FUTURE VALUES 


WHAT IS THE AMOUNT INVESTED?1000 
AT WHAT INTEREST RATE (2%)?716.5 


TIMES COMPOUNDED PER YEAR?4 

FOR HOW MANY YEARS? 1 

ITS FUTURE VALUE WOULD BE $1175.49 
CALCULATE ANOTHER (Y OR N)?Y 


WHAT IS THE AMOUNT INVESTED?1000 
AT WHAT INTEREST RATE (%)?716.5 
TIMES COMPOUNDED PER YEAR?Q 


FOR HOW MANY YEARS?20 
ITS FUTURE VALUE WOULD BE 4 %25374,.71 
CALCULATE ANOTHER (Y OR N)?Y 


WHAT IS THE AMOUNT INVESTED?10000 
AT WHAT INTEREST RATE (24)712 
TIMES COMPOUNDED PER YEAR? 1 


FOR HOW MANY YEARS?20 
ITS FUTURE VALUE WOULD BE4$96462.93 
CALCULATE ANOTHER (Y OR N) 


WHAT IS THE AMOUNT INVESTED?10000 
AT WHAT INTEREST RATE (%)712 
TIMES COMPOUNDED PER YEAR?365 


FOR HOW MANY YEARS?20 
ITS FUTURE VALUE WOULD BE $110188.4 
CALCULATE ANOTHER (Y OR N)?N 


6.3.2 PROGRAM 10: Statistics 


The formula for the mean of a set of scores is: 
Sum of scores 
Mean 
The variance may be found from: 


Variance = 


The standard deviation of a set of scores is: 


Standard deviation = Square root of variance 


Number of scores 


Sum of squared differences between mean and scores 
Number of scores 


Show and Tell 
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The Z-score may be found from: 


_ Difference of score from mean 
Standard deviation 


A program may be written to solve for these unknowns, given a set of scores. 


RUN from disk and refer to the listing and run of PROGRAM 10. 


JLOAD PROGRAM 10 
JLIST 


10 REM PROGRAM 10 

20 REM =a 5c=se 

30 REM PROBLEM SOLVING: THIS PROGRAM 
40 REM CALCULATES MEAN: VARIANCE » 

90 REM STANDARD DEVIATION» AND 

60 REM 2Z2-SCORES FOR A SET OF 

70 REM SCORES. 


80 REM hee 

90 REM 

100 REM Ses s52552-222 == 

110 REM VARIABLE DICTIONARY 

120 REM =H22F255222222F 

130 REM D - STANDARD DEVIATION 

140 REM (SQ. ROOT OF VARIANCE) 
150 REM D1( ) - DISTANCE OF GIVEN 
160 REM SCORE FROM MEAN 


170 REM M - MEAN OF SCORES 

180 REM S( ) - GIVEN SCORE 

190 REM T - CUMULATIVE TOTAL OF SCORES 

200 REM T1 - CUMULATIVE TOTAL OF THE SQUARE 


210 REM OF THE DISTANCE OF A GIVEN 
220 REM SCORE FROM THE MEAN 

230 REM V - VARIANCE 

240 REM SS sS5-e 55> --—=-= 

290 REM 

Z60 DIM S(100) »D1(100) 

270 HOME 


280 PRINT "MEAN+ VARIANCE» AND STANDARD" 
290 PRINT "DEVIATION OF A SET OF SCORES" 


300 PRINT 

310 PRINT “ENTER THE SCORES. TO STOP»" 
320 PRINT " ENTER ANY NEGATIVE NO," 
330 REM ===ROOM FOR 100 SCORES=== 


340 FOR I = 1 TO 100 

3590 PRINT "SCORE (NEGATIVE TO STOP)"5 
360 INPUT S(I) 

370 IF S(I) < O THEN 420 


380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
310 
920 
330 
040 
990 
960 
270 
280 
990 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 


JRUN 


Show and Tell 


REM ===CUMULATIVE SCORE TOTAL=== 
T= T + S(T) 

NEXT I 

GOTO 430 

I=I- 1 

PRINT 

PRINT "MEAN" »"VAR" »"SD" 

PRINT "----" ,"---",4 20" 

===COMPUTE THE MEAN=== 
M=T/ I 

FOR J = 1 TOT 

REM ===GET DISTANCE OF SCORE FROM MEAN=== 
Di(J) = S(J) - M 

REM ===BUILD A CUMULATIVE TOTAL=== 

Ti = Ti + DitdJ) * 2 

NEXT J 

REM ===COMPUTE VARIANCE=== 
V= Ti / I 

REM ===COMPUTE STANDARD DEVIATION=== 
D = SOR (V) 

REM ===SET THE VALUES TO 2 DECIMAL PLACES=== 
PRINT INT (M *# 100) / 100% INT (V # 100) / 
100» INT (D # 100) / 100 

PRINT 

PRINT " Z2-SCORES" 

PRINT "SCORE" »"Z-SCORE" 

PRINT "----- OW cee eae " 

FOR J = 1 TO I 

REM se | ee ee ee 

REM Z-SCORE IS THE DISTANCE OF A 

REM GIVEN SCORE FROM THE MEAN» 

REM DIVIDED BY THE STANDARD DEVIATION. 
REM —— ee ee ee ee ae 

PRINT S(J)» INT (D1(J) 7 D * 100) / 100 
NEXT J 

PRINT 

PRINT "ANALYZE ANOTHER SET (Y¥Y OR N)"S$ 
INPUT A$ 

IF AS < > "Y" THEN 790 
T = 0 
T1 = O 

GOTO 300 

PRINT »"BYE-BYE" 

END 


[Clear screen] 
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ENTER THE SCORES. T 
ENTER ANY NEGATIVE NO. 


SCORE 
SCORE 
SCORE 
SCORE 
SCORE 
SCORE 


(NEGATIVE 
(NEGATIVE 
(NEGATIVE 
(NEGATIVE 
(NEGATIVE 
(NEGATIVE 


O STOP; 


STOP) ?100 
STOP) ?90 
STOP) 780 
STOP) ?70 
STOP) ?60 
STOP) ?-1 


MEAN SD 


14,14 


80 


2-SCORES 
SCORE 


ANALYZE ANOTHER SET (Y OR N)?Y 


ENTER THE SCORES. TO STOP» 


ENTER ANY NEGATIVE NO. 


SCORE 
SCORE 
SCORE 
SCORE 
SCORE 
SCORE 
SCORE 
SCORE 


(NEGATIVE 
(NEGATIVE 
(NEGATIVE 
(NEGATIVE 
(NEGATIVE 
(NEGATIVE 
(NEGATIVE 
(NEGATIVE 


STOP) ?88 
STOP) ?91 
STOP) ?77 
STOP) ?55 
STOP) ?93 
STOP) ?85 
STOP) ?70 
STOP) ?-1 


MEAN 


79.85 


sD 


12.6 


158.97 
Z-SCORES 


SCORE 


ANALYZE ANOTHER 


Z-SCORE 


SET 


(Y OR N)?N 


BYE-BYE 


6.3.3 PROGRAM II: File Maintenance 


One problem that teachers face is ease of access to, and updating of, student 
records. PROGRAM 11 is one approach to letting a computer program do most 
of the work (the grades still have to be entered somehow—via a keyboard in 
this case). This program is included here to serve more as a utility program that 
the reader can use than as an illustrative example because some of the statements 
are more advanced than those of Chapters 1 through 5. 

These new statements are needed to access another file, called TESTS, in 
which the record information is kept. The concept of this file is the same as that 
of DATA-READ program statements. However, the data (student records) are 
not accessed from DATA statements in the program but from the file TESTS. Use 
of such text files allows data to be updated for use in a program without having 
to rewrite or add DATA statements in the body of the program. 

The contents of TESTS are numerical data in the sequence: n1,sl, 
s2,....2,S1,S2,...,etc. Here, nl is the number of scores for the first student name 
and s1,s2,... are the scores for that student; n2 is the number of scores for the 
second student name and s1,s2,... are the scores for that student; and so on. An 
example might look like: 2,99,88,1,75,4,87,85,92,95.,..., etc. 

PROGRAM 11 appears to be lengthy but, again, this is due to extensive use 
of REM statements to help explain the program’s execution. The program may 
be easily modified for actual class use by changing the DIM and DATA statements 
to meet the user’s needs and running the program RECORD INITIALIZER from 
the diskette to erase the sample data in the file TESTS. 


RUN from disk and refer to the listing and run of PROGRAM 11. 


JLOAD PROGRAM 11 
JLIST 


10 REM PROGRAM 11 


30 REM PROBLEM SOLVING: 

40 REM THIS PROGRAM IS AN EXAMPLE OF RECORD 
20 REM KEEPING USING SEQUENTIAL "TEXT FILES." 
60 REM FIVE STUDENT NAMES ARE DATA ELEMENTS 
70 REM IN THE BODY OF THE PROGRAM. THE 

80 REM NUMBER OF SCORES FOR EACH STUDENT AND 
90 REM THEIR RESPECTIVE SCORES ARE STORED 

100 REM SEQUENTIALLY IN THE TEXT FILE "TESTS" 
110 REM ON THE DISK. THE PROGRAM MAY BE USED 
120 REM FOR REAL STUDENT RECORD KEEPING BY 
130 REM CHANGING THE DIM AND DATA STATEMENTS 
140 REM ACCORDINGLY: AND THEN RUNNING THE PROGRAM 
150 REM “RECORD INITIALIZER." 


160 REM Sssse2ee2222t=ee2 
170 REM VARIABLE DICTIONARY 
180 REM sseettctscse2=22e 
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190 REM N# - STUDENT NAME SOUGHT (VIA INPUT) 


200 REM N#( ) - STUDENT NAMES FROM PROGRAM DATA 
210 REM STATEMENTS 

220 REM N( ) - NUMBER OF SCORES FOR EACH 

230 REM STUDENT (FROM FILE "TESTS" ) 

240 REM P - NUMBER OF STUDENTS (FROM PROGRAM 
290 REM DATA STATEMENT) 

260 REM S( + ) - TWO-DIM ARRAY: ROW IS STUDENT 
270 REM NUMBERs COLUMN IS NUMBER OF 
280 REM SCORES FOR THAT STUDENT 

290 REM ——— 2. ee 


300 REM PROGRAM EXAMPLE DIMENSIONS FOR A 

310 REM MAXIMUM OF 20 STUDENTS AND 8 SCORES. 
320 REM CHANGE DIM IF USED IN REAL CLASS. 

330 REM oo. ee ee 2 A ee 

340 HOME : DIM S(2058) »N$(20) »N( 20) 

350 PRINT "CLAS &§ § CORE KEEPIN G" 
360 REM S222 ss2s 225 s=2 

370 REM DATA FOR NUMBER OF STUDENTS. CHANGE 
380 REM IF USED IN REAL CLASS. 


390 REM —_— io 
400 DATA 5 
4io REM Se ee =] 2-2-2 => 


420 REM READ THE NUMBER OF STUDENTS: THEN 
430 REM STORE THE NAMES IN NS#( ). 


440 REM Sasetestsctse2tes\ee 
450 READ P 
460 REM S22 5=255=-=]=-=== 


470 REM 5S STUDENT NAMES (CHANGE FOR REAL USE!) 
480 DATA "CANTOR" s+"DARWIN" »s"EDGAR" »"MCCARTHY" »"ZILLA" 
490 REM Sess s oes sss s 5 

Y00 FOR I = 1 TO P 

2190 READ N#(I1) 

920 NEXT I 

530 REM SsS=Sse555SS=2== 

940 REM DEFINE D$# AS CONTROL-D (RULES OF THE 
990 REM GAME TO ACCESS TEXT FILE "TESTS") 
560 REM Srstssessesrse22ee 

970 D$ = CHR (4) 

980 REM 2252255255225 

990 REM THEN ISSUE "COMMANDS" TO OPEN THE 
600 REM FILE AND START READING THE DATA 

610 REM FROM IT. DATA ARE STORED IN THE 

620 REM SEQUENCE: (NUMBER OF SCORES FOR 

630 REM A STUDENT)», (EACH SCORE FOR 

640 REM THAT STUDENT). N(I) IS THE NUMBER OF 
G50 REM SCORESs S(I+J) IS THE SCORE. 

660 REM —'— 7st? a 

670 PRINT D$s"OPEN TESTS" 

680 PRINT D$;"READ TESTS" 


Show and Tell 


690 FOR I = 1 TO P 


700 REM ===GET THE NUMBER OF SCORES FROM FILE=== 
710 INPUT N(T) 
720 REM ===NOW GET EACH SCORE FROM FILE=== 


730 FOR J = 1 TO N(T) 

740 INPUT S(T >J) 

790 NEXT J 

760 NEXT I 

770 PRINT D$s"CLOSE TESTS" 


780 REM Seoessftess2222222=2 

790 REM FINISHED READING DATA FROM FILE 
800 REM seeesss2s2222222s 

810 PRINT 


820 PRINT "DO YOU WANT TO:" 

830 PRINT "1. ENTER NEW SCORES" 
840 PRINT "2. RETRIEVE SCORES" 
850 PRINT "3. STOP (ENTER 1-3)"5 
860 INPUT C 

870 IF C = 1 THEN 910 

BBO IF C = 2 THEN 910 

890 IF C = 3 THEN 1250 

300 GOTO 810 

910 PRINT 

920 PRINT "STUDENT’S NAME (OR STOP)"S 
3930 INPUT N$& 

340 IF N$ = "STOP" THEN 810 

950 FOR I = 1 TO P 


3960 REM ===MATCH FOUND WITH NAMES?=== 
970 IF N® = N$(1I) THEN 1010 
980 NEXT I 


990 PRINT N$5" IS NOT ON FILE!" 
1000 GOTO 920 
1010 IF C = 1 THEN 1190 


1020 REM Sesesssesses222222 
1030 REM PRINT THE SCORES FOR THE STUDENT 
1040 REM Sees2222s2sze222 


1050 PRINT "SCORES FOR "SNS(T)5"s" 

1060 FOR J = 1 TO N(TI) 

1070 PRINT S(TsJ5S)5" "5 

1080 REM ===CUMULATIVE TOTAL FOR STUDENT=== 
1090 T = T + S(I+J) 

1100 NEXT J 


1110 REM ===ILLEGAL TO DIVIDE BY ZERO=== 
1120 IF N(I) = O THEN 1140 

1130 PRINT " AVE = "ST / N(TI) 

1140 T = 0 

1150 GOTO 910 

1160 REM SsSsssse eee 2= 


1170 REM ADD MORE SCORES FOR STUDENTS 
1180 REM SSSccsasssoeos=== 85 
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1190 PRINT "NEXT SCORE FOR "3N$3 


1200 REM ===INCREASE THE SCORE COUNT BY 1=== 


1210 N(I) = N(I) + 1 

1220 REM ===STORE NEW SCORE IN ARRAY= 
1230 INPUT S(I»N(I)) 

1240 GOTO 910 

1250 PRINT 


1260 REM === TURN ON PRINTER IF WANTED=== 


1262 PRINT "USE PRINTER (Y OR N)"S$ 
1264 INPUT 2% 

1266 DS = CHR$(4) 

1268 IF 2% = "Y" THEN PRINT D$3 "PR#i" 
1270 REM Bastse2strsrssss2222 

1280 REM PRINT OUT CLASS RECORDS 
1290 REM Sea2scsctessesse==S= 


1300 PRINT "NAME"S5 TAB( 12)5"SCORES" 5 
"AVERAGE" 
1310 PRINT "----"5 TAB( 12)5"------ "4 


1320 FOR I = 1 TO P 
1330 FOR J = 1 TO N(TI) 


TAB ( 


TAB ( 


22)3 


22)35 


1340 REM ===CUMULATIVE TOTAL FOR STUDENT=== 
1350 T = T + S(I»J) 
1360 REM ===CUMULATIVE TOTAL FOR CLASS=== 


1370 T1 = Ti + S(IsJ) 
13980 NEXT J 


1390 REM ===ILLEGAL TO DIVIDE BY ZERO=== 


1400 IF N(I) = O THEN 1430 
1410 PRINT N$(1I)5 TAB( 15)5N(1)5 TAB 
( 23)5T / N(T) 


1420 REM ===CUMULATIVE TOTAL SCORE NUMBER 
1430 S1 = S1 + N(T) 

1440 T = 0 

1450 NEXT I 

1460 PRINT 

1470 PRINT "THE CLASS AVERAGE IS "sTi / §1 
1475 IF 2% = "Y" THEN PRINT D$3 "PR#O" 
1480 REM i. 4 ee 


1490 REM WRITE ALL DATA WITH UPDATES 
1500 REM BACK ON THE FILE "TESTS." 
1510 REM Seceesesseeeses 

1520 PRINT D#;s"OPEN TESTS" 

1530 PRINT D#$"WRITE TESTS" 

1540 FOR I = 1 TO P 

1550 PRINT N(I) 

1960 FOR J = 1 TO N(I) 

1570 PRINT S(I+J) 

1580 NEXT J 

1590 NEXT I 

1600 PRINT D#s"CLOSE TESTS" 


Show and Tell 


1610 PRINT " #¥#% DON E 488" 
1620 END 
JRUN 


[Clear screen] 
CLAS § SCORE KEEPING 


DO YOU WANT TO: 

1. ENTER NEW SCORES 
2. RETRIEVE SCORES 

3. STOP (ENTER 1-3)75 


DO YOU WANT TO: 

1, ENTER NEW SCORES 
2» RETRIEVE SCORES 

3. STOP (ENTER 1-3)?2 


STUDENT’S NAME (OR STOP)?ZILLA 
SCORES FOR ZILLA: 
100 50 55 AVE = 68.93393334 


STUDENT’S NAME (OR STOP) ?BERGEN 
BERGEN IS NOT ON FILE! 
STUDENT ’S NAME (OR STOP) ?CANTOR 
SCORES FOR CANTOR: 

60 77 56 81 AVE = 68.5 


STUDENT’S NAME (OR STOP)?TOPPER 
TOPPER IS NOT ON FILE! 
STUDENT’S NAME (OR STOP)?STOP 


DO YOU WANT TO: 

1. ENTER NEW SCORES 
2+ RETRIEVE SCORES 

3- STOP (ENTER 1-3)?1 


STUDENT’S NAME (OR STOP) ?CANTOR 
NEXT SCORE FOR CANTOR?91 


STUDENT’S NAME (OR STOP)?ZILLA 
NEXT SCORE FOR ZILLA?72 


STUDENT’S NAME (OR STOP) ?STOP 


DO YOU WANT TO: 

1. ENTER NEW SCORES 

2. RETRIEVE SCORES 

3+ STOP (ENTER 1-3)793 87 
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USE PRINTER 


NAME 
CANTOR 
DARWIN 
EDGAR 
MCCARTHY 
ZILLA 


SCORES 


(Y OR N)? N 


AVERAGE 


THE CLASS AVERAGE IS 71.6956522 
*%¥% DON E 44% 
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6.4 DRILL-AND-PRACTICE APPLICATIONS 


Drill-and-practice programs are second only in use to problem-solving applica- 
tions in instructional computing. This technique also has wide application in any 
area in which certain fundamental concepts require practice for mastery. This 
could be multiplication tables, chemical nomenclature, Latin-English word-root 
translations, state capitals, and so on. 

Drill-and-practice programs are generally very straightforward: An intro- 
duction, usually including examples, is given; drill questions are presented (either 
linearly or by random selection); answers are entered and checked for accuracy; 
appropriate feedback is given; the next question is asked; and, at the end of the 
program, some form of performance report is given and, perhaps, recorded. 


6.4.1 PROGRAM I12: Linear Selection of Drill Questions 


Drill programs can be easily constructed with DATA-READ and FOR-NEXT 
statements. If the questions are to be linear, the DATA consists of question- 
answer pairs on any chosen topic that are READ as part of a FOR-NEXT question 
sequence. A skeleton program might be: 


10 DATA[“Question 1”,”Answer 1”,”“Question 2”, etc.] 


200 PRINT "[Introductory statements, examples, etc.]" 


500 FOR I = 1 TO [Number of questions to ask] 
910 READ 9$,A$ 

920 PRINT Q$3 

930 INPUT R$ 

940 IF RS = AS THEN 570 


9SO PRINT "A CORRECT ANSWER IS "SAS 

“60 GOTO 590 

270 PRINT "EXCELLENT!" 

~80 C = C+ 1 

990 NEXT I 

600 PRINT "YOU ANSWERED "Cs" QUESTIONS CORRECTLY!" 
610 END 


In the following program on state capitals (PROGRAM 12), note the use of 
the RND(1) function to ‘‘flip a coin’’ to determine if the state or the capital is to 
be asked as a question. In the normal READ sequence (as defined in this pro- 
gram), Q$ (the question) contains the state and A$ (the answer) contains the 
capital. If the question-answer values are to be reversed, the contents of the 
variables Q$ and A$ must be switched. This is accomplished in statements 440— 
460 by the use of a dummy variable, D§, to hold the original question (value of 
Q$) as the switching process is done. 

Again, please remember that by just changing the contents of the DATA 
statements, it is possible to make the program more than just a trivial drill on 
State capitals! 


RUN from disk and refer to the listing and run of PROGRAM 112. 


JLOAD PROGRAM 12 


ILIST 
10 REM PROGRAM 12 
20 REM Beraes2t2tefse22222 


30 REM DRILL AND PRACTICE: THIS 

40 REM PROGRAM DEMOS THE LINEAR QUESTION- 
5O REM AND-ANSWER SEQUENCE VIA DATA-READ» 
60 REM PLUS SWITCHING A QUESTION FOR AN 

70 REM ANSWER AND AN ANSWER FOR A QUESTION, 
BO REM 

950 REM SSSSSssssssssse 

100 REM VARIABLE DICTIONARY 

110 REM SSeeeseee==2s22 

120 REM AS - ANSWER (FROM DATA-READ) 

130 REM C - NUMBER CORRECT COUNTER 

140 REM DS - HOLDS ORIGINAL QUESTION IN 

150 REM QUESTION/ANSWER SWITCHING 

160 REM QO¢$ - QUESTION (FROM DATA-READ) 

170 REM R$ - USER RESPONSE (VIA INPUT) 

180 REM 7 

190 DATA "TEXAS" »"AUSTIN" »"ARKANSAS" »"LITTLE ROCK" 
200 DATA "NEW MEXICO" +"SANTA FE" s"OKLAHOMA" 
210 DATA "OKLAHOMA CITY" +"QREGON" » "SALEM" 
220 HOME 

230 REM ===INTRODUCTION=== 
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240 PRINT "STATE CAPITAL DRILL" 

250 PRINT 

260 PRINT "IF I GIVE THE STATE» YOU GIVE" 

270 PRINT “THE CAPITAL’ IF I GIVE THE" 

280 PRINT "CAPITAL» YOU GIVE THE STATE." 

290 PRINT 

300 FOR I = 1 7T0 5 

310 READ 9$,A$ 

320 PRINT 

330 REM ===’FLIP’ A COIN=== 

340 X = INT (2 * RND (1) + 1) 

390 IF X = 2 THEN 490 

360 REM ===DO THE SWITCH IF X IS 1===2 

370 REM SSeS eeseescrocese= 

380 REM HERE’S THE SWITCH...STORE 9% IN 

390 REM DS TEMPORARILY» PUT THE ANSWER IN 

400 REM Q¢% (NOW THE ANSWER IS THE QUESTION)» AND 
410 REM THEN GET THE ANSWER FROM DS 

420 REM (NOW THE ORIGINAL QUESTION IS THE ANSWER). 
430 REM Sessseessseo=== 

440 DS = QO$ 

450 Q$ = A$ 

460 AS = D$ 

470 REM ===SWITCH COMPLETED=== 

480 REM ===NOW ASK THE QUESTION=== 
490 PRINT Q 

900 INPUT R 
510 IF R& = A$ THEN 540 

Y20 PRINT "A CORRECT ANSWER IS "SAS 
930 GOTO S60 

940 PRINT "GREAT!" 

990 C=C +1 


960 NEXT I 
970 PRINT "YOU GOT "$C" CORRECT!" 
980 END 


JRUN PROGRAM 12 

[Clear screen] 

STATE CAPITAL DRILL 

IF I GIVE THE STATE» YOU GIVE 
THE CAPITALS IF I GIVE THE 
CAPITAL» YOU GIVE THE STATE. 


TEXAS?AUSTIN 
GREAT! 


ARKANSAS?LITTLE ROCK 
GREAT ! 


Show and Tell 


NEW MEXICO?SACRAMENTO 
A CORRECT ANSWER IS SANTA FE 


OKLAHOMA CITY ?0KLAHOMA 
GREAT ! 


OREGON? PORTLAND 
A CORRECT ANSWER IS SALEM 
YOU GOT 3 CORRECT! 


JRUN 
{Clear screen] 
STATE CAPITAL DRILL 


IF I GIVE THE STATE» YOU GIVE 
THE CAPITALS IF I GIVE THE 
CAPITAL» YOU GIVE THE STATE. 


TEXAS?AUSTIN 
GREAT! 


ARKANSAS?LITTLE ROCK 
GREAT ! 


NEW MEXICO?SANTA FE 
GREAT ! 


OKLAHOMA CITY ?0KLAHOMA 
GREAT! 


SALEM?0REGON 
GREAT! 
YOU GOT 5S CORRECT! 


6.4.22 PROGRAM 13: Random Selection of Drill Questions 


If the questions are to be randomly selected from a bank of data elements, 
the DATA are READ into one-dimensional arrays prior to presentation of the 
question sequence: 


10 DIM Q$%([Number of questions in bank]) »A$( )+2¢ ) 
20 DATA [Question ’’,’’“Answer 1 ’’,‘‘Question 2’’, etc.] 


] 
e 


160 FOR I = 1 TO [Number of questions in bank] 
170 READ QO$(TI) sAS$(T) 
180 Z(I) = 0 91 
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190 NEXT I 
200 PRINT "(Introductory statements, examples, etc.]" 


500 FOR I = 1 TO [Number of questions to be asked] 

905 REM RANDOMLY SELECT A QUESTION NUMBER 

310 J = INT([Number of questions in bank]*RND(1) + 1) 
915 REM HAS THIS NUMBER ALREADY BEEN SELECTED? 
920 IF Z(J) = 1 THEN 510 

330 Z(J) = 1 

940 PRINT QO$(J)5 

990 INPUT R$ 

960 IF R$ = AS$(J) THEN S90 

970 PRINT "A CORRECT ANSWER IS "SA$(J) 

“80 GOTO 610 

990 PRINT "GREAT!" 

600 C=C +t! 

610 NEXT I 

620 PRINT "YOU ANSWERED"sCs"QUESTIONS CORRECTLY!" 
630 END 


Note in the example, PROGRAM 13, that only 3 of the 5 possible questions 
are randomly selected. In general, it is good practice to have approximately 25% 
more questions in the bank than are to be asked by random selection. This will 
reduce the time required for the program to find a question that has not been 
asked previously. 


RUN from disk and refer to the listing and run of PROGRAM 13. 


JLOAD PROGRAM 13 


JLIST 
10 REM PROGRAM 13 
20 REM Beeseseee22e22222: 


30 REM DRILL AND PRACTICE: THIS 

40 REM PROGRAM DEMOS RANDOM SELECTION OF 

9O REM QUESTIONS/ANSWERS FROM ONE-DIM ARRAYS 
60 REM WITHOUT REPEATING ANY QUESTION, PLUS 
70 REM SWITCHING THE QUESTION-ANSWER,. 


80 REM mesesses2e=e2e2e2e2=2 
90 REM VARIABLE DICTIONARY 
100 REM Besesteee2222222=22 


110 REM AS$(J) - ANSWER TO QUESTION 

120 REM OD - HOLDS QUESTION TEMPORARILY 
130 REM IN QUES/ANSWER SWITCHING 

140 REM J - RANDOM INTEGER VALUE 

150 REM QO¢(J) - RANDOM QUESTION FROM LIST 
160 REM 2Z2(J) - FLAG FOR SELECTED INTEGER 
170 REM she —-S sae 

180 DIM Q$(5) ,A$(5) »2(5) 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
910 
520 
330 
540 
090 
»60 
070 
980 
090 
600 
610 


DATA "TEXAS" »s"AUSTIN" »"ARKANSAS" »"LITTLE 
DATA "NEW MEXICO" »"SANTA FE" »"OKLAHOMA" 
DATA “OKLAHOMA CITY" »s"OREGON" » "SALEM" 
HOME 


REM ===INTRODUCTION=== 
PRINT "STATE CAPITAL DRILL" 
PRINT 


PRINT "IF I GIVE THE STATE» YOU GIVE" 
PRINT "THE CAPITALs IF I GIVE THE" 
PRINT "CAPITAL» YOU GIVE THE STATE." 
PRINT 

REM ===STORE THE QUESTIONS/ANSWERS=== 
FOR I = 1 TO 5 

READ QO$(TI) sAS(T) 


NEXT I 

REM ===ASK ONLY 3 OF THE POSSIBLE 5S=== 
FOR I = 1 T0393 

PRINT 

REM ===SELECT A QUESTION NUMBER=== 
J = INT (5 * RND (1) + 1) 

REM ===HAS IT BEEN SELECTED BEFORE?=== 


IF 2(J) = 1 THEN 380 


REM ===FLAG J AS A SELECTED NUMBER=== 
Z2(J) = 1 

REM 

REM ===‘’FLIP’ A COIN=== 
X = INT (2 * RND (1) + 1) 

IF X = 2 THEN 520 

REM ===DO THE SWITCH IF X IS 1==5= 
D$ = QO$(J) 
O$(J) = AS(J) 
A$(J) = DS 

REM ===ASK THE QUESTION=== 

PRINT O$(J)5 

INPUT R$ 


IF RS = AS$(J) THEN 570 

PRINT "A CORRECT ANSWER IS "SA$(J) 
GOTO S30 

PRINT "GREAT!" 


C=C + i1 

NEXT I 

PRINT "YOU GOT "sCs" CORRECT!" 
END 


ROCK" 


Show and Pll 


93 


An Introduction to the BASIC Programming Language 


JRUN PROGRAM 13 
[Clear screen] 
STATE CAPITAL DRILL 


IF I GIVE THE STATE» YOU GIVE 
THE CAPITALs IF I GIVE THE 
CAPITAL» YOU GIVE THE STATE. 


SALEM?NEW MEXICO 
A CORRECT ANSWER IS OREGON 


AUSTIN?NEVADA 
A CORRECT ANSWER IS TEXAS 


NEW MEXICO? SANTA FE 
GREAT! 
YOU GOT 1 CORRECT! 


JRUN 
[Clear screen] 
STATE CAPITAL DRILL 


IF I GIVE THE STATE» YOU GIVE 
THE CAPITAL’ IF I GIVE THE 
CAPITAL» YOU GIVE THE STATE. 


SANTA FE?NEW MEXICO 
GREAT! 


TEXAS ?AUSTIN 
GREAT! 


OREGON?SALEM 
GREAT ! 
YOU GOT 3 CORRECT! 


6.4.3 PROGRAM 14: User Options and Random Positive 
Feedback 


Use of GOSUB-RETURN routines makes development of linear drill-and- 
practice programs a simple task. The minimum needed could be: 


94 


Present statements for the introduction, examples, and question content: 


10 PRINT "(Introductory statements] " 
100 PRINT "[Presenting examples] " 


200 PRINT "[Ask question 1]‘ 
Assign a correct answer to a variable: 
210 AS="[Answer to question 1]" 

Go to the answer-checking subroutine: 
220 GOSUB 10000 

Present the next question following RETURN: 
230 PRINT "[Ask question 2]" 
Assign answer to a variable: 

Z40 AsS="[Answer to question 2]" 

Go to the subroutine again: 

2590 GOSUB 10000 


e 
e 


The subroutine allows for answer input: 
10000 INPUT R$ 

Checks for accuracy: 

10010 IF R#$=A$ THEN 10040 
Presents a correct answer if missed: 
10020 PRINT "A CORRECT ANSWER IS "SAS 
Returns to the next question: 

10030 GOTO 10060 

Gives a positive feedback if correct: 
10040 PRINT "VERY GOOD!" 
Increases a number-correct counter by 1: 
10050 C = C + 1 

And asks the next question: 

10060 RETURN 


Show and Tell 
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JLOAD PROGRAM 14 


JLIST 


10 
20 
30 
40 
00 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


These statements outline a general design sequence. But, to a user, a drill- 
and-practice program that just asks a question, says “CORRECT” or “INCOR- 
RECT,” and then asks the next question can be awfully boring. However, we can 
liven up the program by giving the user some options like: SKIP (a question), 
ANSWER (to a question), and STOP (at will). We can also randomize the positive 
feedback and use the INVERSE statement for emphasis in asking a question. 
Examples of these types of additions are shown in PROGRAM 14, which is a 
drill on the parts of a sentence. 

Some comments about PROGRAM 14: Just when you thought you knew a bit 
about BASIC, along comes this program that’s sooooo long! Don’t tear your hair! 
Without the REM statements explaining the program's execution and the PRINT 
statements giving the introduction and examples, the program consists of only 
73 statements. The key points brought out in these 73 statements are: the use of 
subroutines for repetitive processes; control and appearance of the screen display; 
and ease of expanding a program once these processes are defined. 

Examination of the listing will show that the introduction and the sentences 
composing the questions (up to eight words per sentence) may be changed to a 
user’s own choosing and that many more sentences may be added with ease. So 
relax. Carefully examine the method by which a sentence is defined (e.g., state- 
ments 710—1010) and the subroutines beginning at statements 4500 and 5000. 
These sections are the crux of comprehending this program. 


RUN from disk and refer to the listing and run of PROGRAM 14. 


PROGRAM 14 


DRILL AND PRACTICE: THIS PROGRAM 
DEMOS RANDOM POSITIVE FEEDBACK 

FROM A ONE-DIM ARRAY: GIVING 

USER OPTIONS FOR PROGRAM CONTROL » 

AND THE USE OF THE INVERSE STATEMENT 
FOR EMPHASIS IN QUESTION SEQUENCE. 
TWO SUBROUTINES ARE USED. 


- ANTICIPATED CORRECT ANSWER 
- NUMBER-CORRECT COUNTER 


- RANDOM POSITIVE FEEDBACK 


- USER INPUT 


170 
180 
190 
200 
210 
220 
230 
240 
290 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
310 
920 
930 
240 
900 
260 
270 
980 
990 
600 
610 
620 
630 
640 
650 
660 


REM W - NUMBER OF WORDS IN A GIVEN SENTENCE 
REM W$( ) - WORDS OF THE SENTENCE 

REM X - QUESTION (WORD) COUNTER 

REM Y - WORD NO. IN SENTENCE TO EMPHASIZE 
REM —. 7s ee 

DIM FS$(Q4) »WS$(8) 


REM ===POSITIVE FEEDBACK CHOICES=== 

DATA “WELL DONE" »"MARVELOUS" +"THAT’S IT" s"VERY 
REM ===STORE FEEDBACK CHOICES=== 

FOR I = 1 TO 4 

READ FS(1) 

NEXT I 

REM ===GIVE THE INTRODUCTION=== 

HOME 

PRINT "“ INTRODUCTION" 

PRINT 


PRINT "THIS IS A SHORT DRILL ON" 

PRINT "SENTENCE STRUCTURE. I’LL" 
PRINT "PRESENT A COMPLETE SENTENCE" 
PRINT "AND YOU ARE ASKED TO IDENTIFY" 
PRINT "EACH PART OF THAT SENTENCE >" 
PRINT "WORD BY WORD." 

PRINT 

REM ===USER CONTROLS WHEN TO GO=== 
PRINT "READY FOR MORE" S 

INPUT 2$% 

HOME 

PRINT " ##% EXAMPLE ***" 

PRINT 

PRINT "THE DOG BITES." 

PRINT 

PRINT "FIRST I’LL EMPHASIZE THE WORD ‘THE ’" 
PRINT "AND YOU SHOULD IDENTIFY ‘’THE’" 
PRINT "AS AN ARTICLE. NEXT I’LL" 

PRINT "EMPHASIZE THE WORD ‘DOG’ WHICH SHOULD" 
PRINT "BE IDENTIFIED AS THE SUBJECT." 
PRINT "FINALLY, I’LL EMPHASIZE ‘’BITES’" 
PRINT "WHICH SHOULD BE IDENTIFIED AS" 
PRINT "A VERB." 

PRINT 

PRINT "SHALL I GO ON"S 

REM ==USER CONTROLS WHEN TO GO=== 
INPUT Z$ 

HOME 

PRINT 

PRINT "ALSO» KNOW THAT YOU MAY SKIP" 
PRINT "A QUESTION BY ENTERING ‘SKIP? »" 
PRINT "RECEIVE A CORRECT ANSWER BY" 
PRINT "ENTERING ‘ANSWER’» OR STOP AT" 
PRINT "ANYTIME BY ENTERING ‘STOP’." 


GOOD" 
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670 PRINT 

680 PRINT "ARE YOU READY FOR THE" 

690 PRINT "FIRST SENTENCE" $ 

700 INPUT 2$ 

710 REM Seer sessae=s=== 

720 REM THE DATA CONTAINS THE WORDS 

730 REM OF THE SENTENCE. ‘’W’ IS THE 

740 REM NUMBER OF THE WORDS IN THE 

790 REM SENTENCE FOR THE READING LOOP. 
760 REM SsSs25555=5=2== 

770 DATA "JACK" »"LOVES" »"MARY, " 

780 W= 3 

790 REM SseSss25SSSSss= 

800 REM GO TO THE SUBROUTINE TO 

810 REM STORE THE WORDS IN WS( ), 

820 REM THE MAXIMUM NO. OF WORDS IS 8, 
830 REM Seesseeceas=es= 

840 GOSUB 4500 

850 REM Sssss2=s2=2>2==2 

860 REM ASSIGN THE CORRECT ANSWER TO A$ 
870 REM AND THE WORD NUMBER IN THE SENTENCE 
880 REM TO INVERSE FOR EMPHASIS TO Y» THEN 
890 REM GO TO THE QUES/ANSWER SUBROUTINE. 
900 REM Seesrsssszez222“2 

910 Y = 1 

920 AS = "SUBJECT" 

930 GOSUB 5000 


940 REM ===REPEAT THE PROCESS FOR THE NEXT WORD=== 


950 Y = 2 

960 AS = "VERB" 

970 GOSUB 5000 

380 REM ===REPEAT THE PROCESS=== 
990 Y= 3 

1000 A$ = "DIRECT OBJECT" 

1010 GOSUB 5000 

1020 REM Se esss]s2s2s22= 

1030 REM REPEAT THE PROCESS FOR 
1040 REM THE NEXT SENTENCE 

1050 REM SSSecSecaesaese==== 

1060 DATA "THE" »"CAT" »"SCRATCHED" »"MIKE," 
1070 W= @ 


1080 REM ===GO TO THE STORING SUBROUTINE=== 
1090 GOSUB 4500 

1100 REM ===ASSIGN THE ANS. AND WORD NO. TO 
1110 Y = 1 


1120 A$ = "ARTICLE" 
1130 GOSUB 5000 
1140 Y = 2 

1150 AS = "SUBJECT" 
1160 GOSUB S000 


EMPHASIZE=== 


1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
4000 
4010 
4020 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4500 
4510 
4520 
43530 
4540 
43550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
9000 
9010 
9020 
9030 
9040 
9050 
2060 
2070 
9080 
9090 
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= 3 

Ags = "VERB" 

GOSUB 5000 
= Q 


AS = "DIRECT OBJECT" 


GOSUB 5000 

REM so 

REM ADDITIONAL SENTENCES MAY 
REM BE ADDED BELOW, FOLLOWING 
REM THE SAME SEQUENCE AS ABOVE, 


REM — ee 

PRINT 

PRINT "THAT‘S ALL FOR TODAY..." 
GOTO 35540 

REM SSSSSSSSSsase 


REM THE 4500 SUBROUTINE READS THE WORDS 
REM OF A GIVEN SENTENCE INTO AN 

REM ARRAY SO THAT THE SENTENCE MAY 

REM BE PRINTED LATER» WORD-BY-WORD» 

REM AND THE APPROPRIATE WORD "INVERSED,." 
REM SeSeeeseseesee= 

HOME 

FOR I = i TOW 

READ W$(1) 

NEXT I 

REM ====s2s==5252525225 

REM NOW THAT THE SENTENCE WORDS HAVE 
REM BEEN STORED» RETURN AND START 

REM THE QUESTION/ANSWER SEQUENCE, 

REM S2ss255==s===== 

RETURN 

REM see sees 52>5=- > 

REM THE SOOO SUBROUTINE PRINTS THE 

REM SENTENCE WORD-BY-WORD, INVERSING 
REM THE WORD CORRESPONDING TO THE 

REM QUESTION. USER INPUT IS CHECKED 
REM FIRST FOR AN ’OPTION’ MATCH THEN 
REM FOR THE CORRECT ANSWER. RANDOM 

REM FEEDBACK IS GIVEN FOR CORRECT ANSWERS. 


REM ===START PRINTING THE WORDS=== 
FOR I = 1 TOW 

===ADD 1 TO THE X COUNTER=== 
= X + 
REM ===IS X EQUAL TO Y? INVERSE IF SO=== 
IF X = Y THEN 5090 
PRINT WS(IT)5" "5 
GOTO 5120 
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3100 
9110 
3120 
9130 
59140 
2150 
»160 
9170 
2180 
0190 
9200 
0210 
9220 
9230 
9240 
3250 
9260 
9270 
9280 
09290 
3300 
3310 
9320 
9330 
9340 
9350 
» 360 
9370 
» 380 
3390 
9400 
59410 
9420 
9430 
2440 
9450 
2460 
9470 
2480 


9490 
0900 
9910 
9920 
J0d30 
9940 
9990 
9560 


F 


C 


PRINT WS(TI)5" "S$ 
NORMAL 

NEXT I 

PRINT 

PRINT 

PRINT "YOUR ANSWER" S$ 
INPUT R$ 

REM 
REM 
REM 


CHECK FIRST FOR 


"SKIP" THEN 3490 
"ANSWER" THEN 5270 
"STOP" THEN 5540 


‘OPTION’ INPUT 


REM 


A$ THEN 5370 
"A CORRECT ANSWER IS 


REM 
IF R$ = 
PRINT 
REM 

REM HOLD THE CORRECT ANSWER UNTIL 


"SAS 


REM THE USER IS READY TO CONTINUE. 

REM See 22]Ss==225====s 

PRINT 

PRINT "ARE YOU READY" s 

INPUT Z$ 

GOTO 35490 

REM ===GET A RANDOM NUMBER (4-1)===5 
= INT (4 * RND (1) + 1) 

REM ===PRINT THE RANDOM FEEDBACK=== 
PRINT FS#(F)5"!" 

REM ===ADD 1 TO THE NUMBER CORRECT=== 
= C+t+i 

REM oe ee ee 

REM LET THE SYSTEM "COUNT" TO 2000 SO THAT 


REM 
REM 
FOR K = 
NEXT K 
REM ===SET X TO ZERO BEFORE NEXT 
QUESTION=== 


1 TO 2000 


REM 


REM 
PRINT 
PRINT 
END 


"YOU GOT "$C3" 


CORRECT ANSWER(S)." 


THE DISPLAY WILL REMAIN 2-3 SECONDS 


JRUN 


[Clear screen] 
INTRODUCTION 


THIS IS A SHORT DRILL ON 
SENTENCE STRUCTURE. I’LL 
PRESENT A COMPLETE SENTENCE 
AND YOU ARE ASKED TO IDENTIFY 
EACH PART OF THAT SENTENCE » 
WORD BY WORD. 


READY FOR MORE?0K 


[Clear screen] 


#%% EXAMPLE 4##+* 
THE DOG BITES. 


FIRST I’LL EMPHASIZE THE WORD ‘THE’ 
AND YOU SHOULD IDENTIFY ‘THE’ 

AS AN ARTICLE. NEXT I’LL 

EMPHASIZE THE WORD ‘DOG’ WHICH SHOULD 
BE IDENTIFIED AS THE SUBJECT. 
FINALLY» I’LL EMPHASIZE ‘BITES’ 

WHICH SHOULD BE IDENTIFIED AS 

A VERB. 


SHALL I GO ON?YES ...GO ON 
[Clear screen] 


ALSO» KNOW THAT YOU MAY SKIP 

A QUESTION BY ENTERING ‘SKIP’ » 
RECEIVE A CORRECT ANSWER BY 
ENTERING ’ANSWER’,» OR STOP AT 
ANYTIME BY ENTERING ‘STOP’. 


ARE YOU READY FOR THE 
FIRST SENTENCE?YES 


[Clear screen] 


Slee LOVES MARY. 


YOUR ANSWER?ANSWER 
A CORRECT ANSWER IS SUBJECT 


ARE YOU READY *?OK 
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JACK MARY. 


YOUR ANSWER?SKIP 


yack Loves GZ. 


YOUR ANSWER?SUBJECT 


A CORRECT ANSWER 
ARE YOU READY?0K 


[Clear screen] 


IS DIRECT OBJECT 


gains CAT SCRATCHED MIKE. 


YOUR ANSWER?ARTICLE 


THAT’S IT! 


THE [8pm SCRATCHED MIKE. 


YOUR ANSWER?SUBJECT 


VERY GOOD! 


THE CAT MIKE. 


YOUR ANSWER? VERB 
WELL DONE! 


THE CAT SCRATCHED 


YOUR ANSWER?DIRECT OBJECT 


VERY GOOD! 


THAT’S ALL FOR TODAY... 


YOU GOT 4 CORRECT ANSWER(S). 
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6.4.4 PROGRAM 15: Random Generation of Question 
Parameters 


For drill programs using numerical values, the RND(1) function may be used 
to ensure that no two RUNs of the program are identical. That is, although the 
text of the problem may be the same, the parameters are randomly generated in 
order that each problem appears unique. As an example, consider PROGRAM 
15, which gives the base and height of a triangle and asks for the area (Area = 
1/2 base X height). 

Note: In referring to the listing of PROGRAM 15, look closely at statements 
670, 680, and 730. The Apple (and most other brands of microcomputer) will 
allow multiple BASIC statements per line. This means that a series of statements 


may be entered on one line. Each statement is delimited (separated) by a colon. 
From the system’s standpoint, this makes more efficient use of the available 
memory. From the reader’s standpoint, however, it is sometimes more difficult 
to follow the program’s sequence of execution. 

In this particular program example, the multiple statements are used to illus- 
trate control of the screen display. If a user’s answer is correct, the screen is first 
erased, a positive response is shown in the center of the screen, and the computer 
pauses for about 3 seconds before continuing in the instructional sequence. 


RUN from disk and refer to the listing and run of PROGRAM 15. 


JLOAD PROGRAM 15 


JLIST 
10 REM PROGRAM 15 
20 REM $e ee ee 


30 REM DRILL AND PRACTICE: THIS 

40 REM PROGRAM DEMOS USER CONTROL OF THE 

YO REM NUMBER OF QUESTIONS TO BE ASKED 

60 REM AND USE OF RND(1) TO RANDOMLY 

70 REM GENERATE NUMBERS WITHIN LIMITS TO 

80 REM USE IN THE TEXT OF A QUESTION. 

90 REM PROGRAM ALSO DEMOS FOR THE FIRST TIME 
100 REM THE USE OF MULTIPLE STATEMENTS PER LINE 
110 REM —s 2. 

120 REM VARIABLE DICTIONARY 

130 REM SSeeSeeeesesss=s 

140 REM A - AREA OF TRIANGLE (ANSWER) 

150 REM B - RANDOMLY SELECTED VALUE FOR 


160 REM THE ’BASE’ OF A TRIANGLE 
170 REM H - RANDOMLY SELECTED VALUE FOR 
180 REM THE ‘HEIGHT’ OF A TRIANGLE 


190 REM P - NUMBER OF PROBLEMS SELECTED BY USER 
200 REM §S - USER ANSWER (INPUT) 


210 REM Sestetss2ze222==2 
220 REM 
230 HOME 


240 PRINT "DRILL ON CALCULATING THE" 

290 PRINT "AREA OF A TRIANGLE" 

260 PRINT 

270 PRINT "HOW MANY PROBLEMS DO YOU WANT"S 
280 INPUT P 

290 IF P < 1 THEN 270 

300 IF P < 11 THEN 350 

310 PRINT "THAT’S TOO MANY...KEEP" 


320 PRINT " IT TO 10 OR LESS." 
330 GOTO 270 
340 REM ===USER GOT TO DEFINE THE VALUE OF P 


(WITHIN LIMITS) === 
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350 FOR I = 1 TO P 

360 PRINT 

370 REM po —2 

380 REM GET RANDOM VALUES FOR THE BASE AND 
390 REM HEIGHT AND CALCULATE THE AREA, 
400 REM ie ete 

410 B = INT (10 * RND (1) + 1) * 5 

420 INT (15 * RND (1) + 1) * 10 
430 A= .5 * B * H 

440 PRINT "THE BASE OF A TRIANGLE IS" 
450 PRINT Bs" INCHES AND ITS HEIGHT" 
460 PRINT "IS "SH$" INCHES. WHAT IS" 
470 PRINT “ITS AREA IN SQUARE INCHES" s 
480 INPUT §& 


<= 
uN 


490 REM ===IS INPUT CORRECT ANSWER?=== 
“00 IF A = § THEN 670 

910 PRINT 

920 PRINT "NO» AREA = 1/2 X BASE X HEIGHT" 
930 PRINT "= 1/2 X "S$Bs" X "SH 

3940 PRINT "= "5A5" SQUARE INCHES" 

9590 REM ===USER CONTROLS WHEN TO GO=== 


960 PRINT "READY" $ 

970 INPUT Z$ 

280 GOTO 710 

S590 REM 7 

600 REM NOW WE’LL USE MULTIPLE STATEMENTS 
610 REM ON A LINE TO: 1. ERASE THE SCREEN: 
620 REM 2. SKIP DOWN TO THE MIDDLE OF THE 
630 REM SCREENS 3. PRINT A RESPONSE: AND 
640 REM 4. HOLD THE DISPLAY WHILE THE 

650 REM SYSTEM "COUNTS" TO 1000. 

660 REM tee oe 


670 HOME : FOR J = 1 TO 11: PRINT : NEXT J 

680 PRINT " PERF EC T!"s FOR J = 1 TO 
NEXT J 

690 C=C + il 

700 REM ===CLEAR THE SCREEN THEN GO=== 


710 HOME 

720 NEXT I 

730 FOR J = 1 TO 11: PRINT =: NEXT J 

740 PRINT "YOU GOT “sCs" CORREC T 
750 END 


JRUN 
[Clear screen] 


DRILL ON CALCULATING THE 
AREA OF A TRIANGLE 


1000: 


HOW. MANY PROBLEMS DO YOU WANT?3 
/ 


THE BASE OF A TRIANGLE IS 

45 INCHES AND ITS HEIGHT 

IS 120 INCHES. WHAT IS 

ITS AREA IN SQUARE INCHES?2400 


NO» AREA = 1/2 BASE X HEIGHT 
= 1/2 X 45 X 120 

= 2700 SQUARE INCHES 

READY ?0K 


[Clear screen] 


THE BASE OF A TRIANGLE IS 

15 INCHES AND ITS HEIGHT 

IS 80 INCHES. WHAT IS 

ITS AREA IN SQUARE INCHES?600 


[Clear screen] 
PERFECT! 
[Clear screen] 


THE BASE OF A TRIANGLE IS 

29 INCHES AND ITS HEIGHT 

IS 30 INCHES. WHAT IS 

ITS AREA IN SQUARE INCHES?375 


[Clear screen] 
PER FEC T! 
[Clear screen] 


YOU GOT 2 CORRECT ! 


6.5 TUTORIAL (DIALOG) APPLICATIONS 


An extension of the drill-and-practice application allows for more feedback to 
the user whenever difficulty is indicated. This ‘‘tutorial dialog’ could assist the 
user in locating the specific cause of errors, provide hints, or if needed, branch 
to a separate section for detailed review. 

From an instructional computing standpoint, programs of this type are often 
the most complicated to design, are time-consuming in development, and gen- 
erally go through many stages of testing and revision. The reason is that these 
programs (if carefully and thoroughly designed) must anticipate a variety of 
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users’ responses and treat them accordingly: Is the user’s answer partly correct? 
Has the user indicated difficulty to the extent that a branch for review is needed? 
If the user stops in the middle of an interaction, will the program start again at 
that point for the user? Should the program record the questions/responses for 
questions missed? Because of these extensive design, development, and evalu- 
ation considerations, thorough tutorial dialog programs are not widely available. 

The examples that follow are relatively short programs that illustrate some 
programming strategies for introducing more of a ‘‘dialog”’ into the interaction. 
They are by no means examples of extensive tutorial dialog instructional com- 
puting programs. However, they do show some of the techniques that may be 
used in programs of this type. 


6.5.1 PROGRAM 16: Providing Hints 


Providing hints is a simple example of a tutorial program. These hints may 
be incorporated as DATA elements and READ into a one-dimensional array in 
the same fashion as questions and answers were in PROGRAM 13. In the fol- 
lowing program, a flag is set so that (arbitrarily) a hint is given on the first miss 
and the correct answer is given on the second miss (see statements 930—980). 
PROGRAM 16 illustrates this and also follows the criteria defined in Problem 4 
of Chapter 5. 


RUN from disk and refer to the listing and run of PROGRAM 16. 


JLOAD PROGRAM 16 
JLIST 


10 REM PROGRAM 16 

20 REM SSSSeesoeeessese 

30 REM TUTORIAL "DIALOG": THIS 

40 REM PROGRAM DEMOS RANDOM QUESTIONS 
90 REM WITH ONE HINT. SELECTION IS FROM 
60 REM ONE-DIM ARRAYS. DATA IS STORED 
70 REM IN THE SEQUENCE: 

BO REM QUESTION» ANSWER» HINT. 

90 REM FEEDBACK FOR CORRECT AND INCORRECT 
100 REM USER RESPONSES IS ALSO RANDOMLY 
110 REM SELECTED FROM ONE-DIM ARRAYS. 


120 REM meesee2222222=2 
130 REM VARIABLE DICTIONARY 
140 REM —.—_ 7. 7-7. ose 


150 REM AS$( ) - ANSWER FOR QUESTION Q$( ) 

160 REM C - NUMBER-CORRECT COUNTER 

170 REM CS%( ) - FEEDBACK FOR CORRECT RESPONSE 

180 REM F - FLAG FOR MISSING QUES 15ST TRY 

190 REM H$( ) - HINT FOR QUESTION O$( ) 

200 REM Q - COUNTER FOR NUMBER OF QUESTIONS (LOOP) 
210 REM OQO8$( ) - QUESTION ASKED 


220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
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REM R%& - USER RESPONSE (VIA INPUT) 

REM WS( ) - FEEDBACK FOR 1ST INCORRECT RESPONSE 
REM xX - RANDOM NUMBER (15-1) 

REM 2Z2(X) - FLAG FOR RANDOM NUMBER X 

REM 3 oe ee ee ee 

DIM O$(15) »sAS$(15) »HS$(15) 22015) »C$(3) »WS$(3) 
REM ===QUESTION,+s ANSWER» HINT DATA=== 

DATA “CAPITAL OF TEXAS" s"AUSTIN" 

DATA “OL’ STEPHEN F." 

DATA "LAST NAME OF ‘BOLERO’ COMPOSER" 

DATA "RAVEL" »"SWEATERS CAN UN-" 

DATA "FORMULA FOR POTASSIUM FLUORIDE" 

DATA "KF"»"POTASSIUM IS K" 

DATA "GOLIATH’S SLAYER" +"DAVID" 

DATA "SLING-SHOT" 

DATA "DANIEL WAS PLACED IN THE LION’S -?-" 
DATA "DEN" s"FAMILY ROOM" 

DATA "THE ‘’B’ IN BASIC" 

DATA “BEGINNER ’S" »"NOVICE’S" 

DATA "LARGEST CITY IN JAPAN" 

DATA "TOKYO" »"TOKEN QUESTION" 

DATA "A SYNONYM FOR PARONOMASIA" 

DATA "PUN"»"PUNSTERS USE THESE" 

DATA "DIVIDE SO BY 1/2 AND ADD 3. ANS" 
DATA "103"9"((50/.5)4+3)" 

DATA “GEORGE WASHINGTON COULD NOT TELL A --?--" 
DATA "LIE" »"LITTLE WHITE -?-" 

DATA "THREE-TOED SLOTH"»,"AI" 

DATA "FIRST AND THIRD VOWELS" 

DATA "COOLED LAVA" +"AA" 

DATA "SOUND OF PLEASURE" 

DATA “MONTH OF THE WINTER SOLSTICE" 

DATA "DECEMBER" »"MAKE MERRY" 

DATA "ADAM’S ALE" »>"WATER" »"H20" 

DATA "CM PER INCH" +"2,54" 5"?,54" 

REM ===FEEDBACK FOR CORRECT/INCORRECT RESPONSE=== 
DATA "HOT-DOGGIES" »"WHOOPS" 

DATA "PERFECT" s"YOU’RE KIDDING" 

DATA "SENSATIONAL" s"THINK OF THIS" 

REM Sesssess 2222222 

REM STORE QUESTION+ ANSWER» HINT 

REM See Seas esefss== 

FOR I = 1 TO 15 

READ Q$(I) sAS$( 1) »sHS(T) 
Z(I) = 0 

NEXT I 

REM SSsSjSaesesoeasesea= 

REM STORE CORRECT,» INCORRECT FEEDBACK 

REM Sesssses=s2=se22= 
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720 READ C$(I) WS$(T) 


730 NEXT I 

740 HOME 

750 PRINT " FUN AND GAMES" 

760 PRINT 

770 PRINT “HERE ARE 8 QUESTIONS..." 
780 REM Sess sss 2ss2Ss-5 

790 REM ASK 8 QUESTIONS 

800 REM Seses=sSsS2S===55 

810 FOR Q = 1 TO 8 

820 PRINT 

830 F = 0 

840 X = INT (15 *# RRND (1) + 1) 

850 REM ===HAS X APPEARED BEFORE?=== 


860 IF 2(X) = 1 THEN 840 
870 2(X) = 1 

880 PRINT Q$(X)5 

890 INPUT R$ 


300 REM ===GET A RANDOM NUMBER FOR FEEDBACK=== 
910 R = INT (3 * RND (1) + 1) 

920 IF R$ = AS$(X) THEN 990 

930 REM ===HAS QUESTION BEEN MISSED BEFORE?=== 
940 IF F = 1 THEN 1020 

950 F = 1 


960 PRINT WS$(R)5"! HERE’S A HINT:" 

370 PRINT H$(X) 

980 GOTO 880 

990 PRINT CS(R)5"!" 

1000 C = C + 1 

1010 GOTO 1030 

1020 PRINT "A CORRECT ANSWER IS "SAS$(X) 
1030 NEXT Q 

1040 PRINT 

1050 PRINT "YOU ANSWERED "3Ci" CORRECTLY!" 
1060 PRINT TAB( 7)3"BYE-BYE..." 

1070 END 


JRUN 
{Clear screen] 
FUN AND GAMES 
HERE ARE 8 QUESTIONS... 
LAST NAME OF ’BOLERO’ COMPOSER?BACH 
WHOOPS! HERE’S A HINT: 
SWEATERS CAN UN- 


LAST NAME OF ‘BOLERO’ COMPOSER?RAVEL 
PERFECT! 
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YOU’RE KIDDING! HERE‘S A HINT: 
SOUND OF PLEASURE 

COOLED LAVA?AH 

A CORRECT ANSWER IS AA 


GOLIATH’S SLAYER?DANIEL 
WHOOPS! HERE’S A HINT: 
SLING-SHOT 

GOLIATH’S SLAYER?DAVID 
HOT-DOGGIES! 


THREE-TOED SLOTH?WHO KNOWS? 
YOU’RE KIDDING! HERE’S A HINT: 
FIRST AND THIRD VOWELS 
THREE-TOED SLOTH?ATI 

PERFECT! 


LARGEST CITY IN JAPAN?TOKYO 
HOT-DOGGIES! 


THE ‘B’ IN BASIC?BEGINNERS 
YOU’RE KIDDING! HERE’S A HINT: 
NOVICE ’S 

THE ‘B’ IN BASIC?BEGINNER‘S 
PERFECT! 


GEORGE WASHINGTON COULD NOT TELL A --?--?FIB 
THINK OF THIS! HERE’S A HINT: 


LITTLE WHITE -?- 
GEORGE WASHINGTON COULD NOT TELL A --?--?STORY 
A CORRECT ANSWER IS LIE 


A SYNONYM FOR PARONOMASIA?PUN 
SENSATIONAL ! 


YOU ANSWERED 6 CORRECTLY! 
BYE-BYE... 


6.5.2 PROGRAM I17: Review of Missed Questions 


A simple expansion of PROGRAM 16 can be accomplished by defining two 
additional one-dimensional arrays. One will flag a question number missed, and 
the other will contain the incorrect response entered for that question (see state- 
ments 1200—1270). At the conclusion of the program, a list of missed questions, 
including the incorrect responses and a correct answer, can be displayed for 
review by the user (see statements 1640—1850). 109 
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RUN from disk and refer to the listing and run of PROGRAM 17. 


JLOAD PROGRAM 17 
JLIST 


10 REM PROGRAM 17 

20 REM se22522 5552 =s 5 > 

30 REM TUTORIAL "DIALOG": THIS 

40 REM PROGRAM IS SIMILAR TO PROGRAM 16 

SO REM BUT ADDS THE FEATURES OF IMPROVED 

60 REM SCREEN DISPLAY AND "REVIEWS" EACH 

70 REM QUESTION MISSED AT LEAST ONCE. USER 

80 REM IS ALLOWED TO SELECT THE NUMBER OF 

JO REM QUESTIONS TO BE ASKED. 

100 REM ONLY THOSE QUESTIONS ANSWERED CORRECTLY 

110 REM ON FIRST ATTEMPT ARE COUNTED AS OK. 

120 REM SBates22as22zes222 

130 REM VARIABLE DICTIONARY 

140 REM —7—_— 4. o_o a 

150 REM A#( ) - ANSWER TO QUESTION QO$( ) 

160 REM C - NUMBER-CORRECT-15T-TRY COUNTER 

170 REM C$( ) - FEEDBACK FOR CORRECT RESPONSE 

180 REM F - FLAG FOR MISSING QUESTION 1ST TRY 

190 REM H$( ) - HINT FOR QUESTION Q$( ) 

200 REM Q - NUMBER OF QUESTIONS ASKED (VIA USER INPUT) 

210 REM Q&( ) - QUESTION ASKED 

220 REM R - RANDOM NUMBER (3-1) FOR FEEDBACK 

230 REM R$ - USER RESPONSE (VIA INPUT) 

240 REM S$( ) - USER INCORRECT RESPONSE TO QUESTION Q$( 

290 REM WS$( ) - FEEDBACK FOR 1ST INCORRECT RESPONSE 

260 REM X - RANDOM NUMBER (15-1) 

270 REM Z(X) - FLAG FOR RANDOM NUMBER X 

280 REM 2Z1(X) - FLAG FOR QUESTION NUMBER MISSED BY USER 

290 REM Seas eseeeoeeee ss 

300 DIM O$(15) sAS$(15) »HS(15) 6S5$°015) 92015) 21°15) »C$(3) » 
W$ (3) 

310 REM ===QUESTION» ANSWER» HINT DATA=== 

320 DATA "LATIN FOR ‘’BUTTOCKS’" 

330 DATA "“GLUTEUS MAXIMUS" »"GLUTEALS" 

340 DATA “LAST NAME OF ‘BOLERO’ COMPOSER" 

390 DATA “RAVEL"s"GSWEATERS CAN UN-" 

360 DATA "FORMULA FOR ZINC OXIDE" 

370 DATA "ZNO">"ZINC IS ZN" 

380 DATA "GOLIATH’S SLAYER" +"DAVID" 

390 DATA "SLINGSHOT" 

400 DATA "DANIEL WAS PLACED IN THE LION’S -?-" 

410 DATA "DEN" »+"FAMILY ROOM" 

420 DATA "WHAT KEEPS THE DOCTOR AWAY" 

430 DATA "AN APPLE A DAY" +"MICROCOMPUTER" 

440 DATA "WHICH IS LONGER: METER OR YARD" 


450 
460 
470 
480 
490 
300 
»10 
»20 
»30 
240 
300 
»60 
2/70 
980 
090 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7950 
760 
770 
780 
790 
BOO 
B10 
B20 
830 
840 
850 
860 
870 
B80 
890 
900 
910 
920 
930 
940 


DATA "“METER"s"A METER IS 39,37 IN." 
DATA "MONTH OF THE LONGEST DAY" 
DATA "JUNE" +"ASSUME N. HEMISPHERE" 
DATA "THE ‘B’ IN BASIC" 

DATA "BEGINNER‘’S"»"NOVICE’S" 

DATA "A THREE-TOED SLOTH"»"AI" 

DATA "FIRST AND THIRD VOWELS" 

DATA "LARGEST RIVER IN THE WORLD" 
DATA "“AMAZON" +"BIG-MOMMA! " 

DATA "LONGEST RIVER IN THE WORLD" 
DATA "NILE" +"A SHADE OF GREEN" 

DATA "NORTHERN WATER BODY OF TEXAS" 
DATA “RED RIVER" »"RED RYDER" 

DATA "CAPITAL OF OREGON" »"SALEM" 
DATA “WITCH HUNT CITY" 

DATA "“’NEW DOOR’ REARRANGED TO ONE WORD" 
DATA "ONE WORD",s"IT‘S ONE WORD" 

REM ==FEEDBACK FOR CORRECT/INCORRECT RESPONSE=== 
DATA "GREAT" »"QH» SHOOT" 

DATA "SENSATIONAL" +"WHOA NOW..." 
DATA "HOT-DOGGIES","LET ME HELP" 
REM SeseseseSease sss 

REM STORE QUESTION; ANSWER: HINT 
REM S2e¢e=seess2222ss25 

FOR I = 1 TO 15 

READ O$(1) sAS(I) sHS(T1) 


2(~I) = OsZ1i(1I) = O 


NEXT I 

REM Ses Seeeesea==se= 

REM STORE FEEDBACK FOR CORRECT/INCORRECT RESPONSE= 
FOR I = 1 TO 3 

READ C(I) »W$(1) 

NEXT I 

HOME : PRINT : PRINT : PRINT 

PRINT "MORE FUN AND GAMES": PRINT 


PRINT 

PRINT "WHAT‘S YOUR FIRST NAME" 5 
INPUT FS% 

HOME : PRINT 

PRINT 

REM ===INTRODUCTION=== 


PRINT "HELLO+ "SFS$5". THIS PROGRAM": PRINT 

PRINT "SHOWS SOME SIMPLE USES OF BASIC": PRINT 
PRINT "IN INSTRUCTIONAL COMPUTING. WHAT": PRINT 
PRINT "I’LL DO IS ASK SOME QUESTIONS": PRINT 
PRINT "THAT ARE ‘FUN AND GAMES.’ IF YOU": PRINT 
PRINT "MISS ON THE FIRST TRY» I’LL GIVE": PRINT 
PRINT "A HINT. I’LL ONLY GIVE YOU TWO": PRINT 
PRINT "CHANCES TO ANSWER. AT THE END+": PRINT 
PRINT "I’LL SHOW YOU THE QUESTIONS MISSED": PRINT 
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950 PRINT "AND GIVE YOU YOUR SCORE." 

359 REM === INPUT STATEMENT CAN HAVE TEXT === 
960 PRINT : INPUT "READY?" 52$% 

370 REM ===CLEAR AND CENTER ON SCREEN=== 

380 HOME : FOR I = 1 TO ils PRINT : NEXT I 

990 PRINT "I HAVE 15 QUESTIONS AVAILABLE." 
1000 PRINT "HOW MANY WOULD YOU LIKE"$: INPUT Q 
1010 REM ===CHECK FOR WITHIN RANGE=== 

1020 IF Q < 1 THEN 1050 

1030 IF 9 > 15 THEN 1050 

1040 GOTO 1080 

1050 PRINT "AWWW, IT HAS TO BE 1 TO 15!" 

1060 GOTO 990 

1070 REM ===ASK "Q" QUESTIONS=== 

1080 FOR J = 1 T0 Q 

1090 HOME : FOR I = 1 TO 10: PRINT =: NEXT I 
1100 F = 0 

1110 X = INT (15 * RND (1) + 1) 

1120 REM ===HAS X APPEARED BEFORE?=== 

1190 IF Z(X) = 1 THEN 1110 

1140 Z(X) = 1 

1150 PRINT Q$(X)5 

1160 INPUT R$ 

1170 R = INT (3 * RND (1) + 1) 

1180 IF R$ = A$(X) THEN 1360 

1190 IF F = 1 THEN 1470 

1200 REM ———¢—.—. ee 

1210 REM FOR A QUESTION THAT IS MISSED: 

1220 REM 1. FLAG THE NUMBER OF THAT QUESTIONS; 
1230 REM 2. STORE THE RESPONSE GIVEN BY THE USER 


1240 REM IN S#(X) FOR LATER RECALL, 
1250 REM Bs2etestet2e2222=2=2 

1260 Z1(X) = 1 

1270 S$(X) = R$ 

1280 F = 1 


1290 PRINT WS(R)5"! HERE’S A HINT:" 

1300 PRINT H$(X) 

1310 GOTO 1150 

1320 REM Se sess 552225552 

1330 REM CLEAR THE SCREEN» CENTER THE FEEDBACK » 
1340 REM AND HOLD IT THERE A MOMENT OR TWO. 
1350 REM SSeses ose =ss=5=2 

1360 HOME : FOR I = 1 TO 11s PRINT =: NEXT I 

1370 PRINT TAB( 10)5CS$(R)5"!" 

1380 FOR I = 1 TO 1000: NEXT I 


1390 REM ===NO CREDIT GIVEN IF CORRECT 2ND 
TRY !l=== 
1400 IF F THEN 1500 


= 1 
1410 C = C + ft 
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1420 GOTO 1500 

1430 REM ——— te ee a a ee 

1440 REM FLASH THE CORRECT ANSWER AND 

1450 REM LET USER SAY WHEN TO GO. 

1460 REM SSS555=s5222>=2= 

1470 PRINT "A CORRECT ANSWER IS: "35 

1480 FLASH : PRINT AS$(X): NORMAL 

1490 PRINT =: INPUT "READY?" 52% 

1500 NEXT J 

1510 HOME s: PRINT 

1520 PRINT "YOU ANSWERED "Cs" CORRECTLY" 

1530 PRINT "ON THE FIRST TRY..." 

1540 REM ===EVERY ANSWER CORRECT FIRST TRY?=== 
1550 IF C < > 9 THEN 1600 

1560 PRINT 

1570 PRINT "E X CELLENT !" 

1580 FOR I = 1 TO 3000: NEXT I 

1590 GOTO 1860 

1600 PRINT : PRINT 

1610 PRINT "THE QUESTIONS MISSED AT" 

1620 PRINT "LEAST ONCE ARE:" 

1630 FOR I = 1 TO S000: NEXT I 

1640 REM SessesesSs5=25= 

1650 REM LOOP THRU ALL 15 TO SEE IF A QUESTION 
1660 REM WAS MISSED. IF MISSED» 2Z21(1) IS 1 
1670 REM (FROM SETTING THE FLAG AT LINE 1260) 
1680 REM AND THE USER’S INCORRECT RESPONSE 
1690 REM IS STORED IN S$(I). (FROM LINE 1270) 


1700 REM fSese22e22=2222=2 

1710 FOR I = 1 T0 15 

1720 HOME =: PRINT : PRINT =: PRINT 

1730 REM ===DID THE USER MISS THIS QUESTION?=== 
1740 IF Z1(I) = O THEN 1850 

1750 PRINT 

1760 PRINT " QUESTION: " 


1770 PRINT Q$(1) 
1780 PRINT 


1790 PRINT " YOUR ANSWER: " 

1800 PRINT S$(1) 

1810 PRINT 

1820 PRINT " A CORRECT ANSWER:" 
1830 PRINT A$(I): PRINT 

1840 INPUT " READY?" 52% 


1850 NEXT I 

1860 HOME : FOR I = 1 TO 10: PRINT : NEXT I 

1870 REM ===COMPUTE A PERCENTAGE SCORE=== 

1880 PRINT "YOUR SCORE IS "sC * 100 / Qs" ZI" 

1890 PRINT TAB( 5)s"BYE-BYE» "sF$% 

1900 END 113 
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JRUN 


[Clear screen] 


MORE FUN AND GAMES 


WHAT’S YOUR FIRST NAME?SAMMY 
[Clear screen] 


HELLO+ SAMMY. THIS PROGRAM 

SHOWS SOME SIMPLE USES OF BASIC 

IN INSTRUCTIONAL COMPUTING. WHAT 
I’LL DO IS ASK SOME QUESTIONS 

THAT ARE ‘FUN AND GAMES.’ IF YOU 
MISS ON THE FIRST TRY» I’LL GIVE 

A HINT. I’LL ONLY GIVE YOU TWO 
CHANCES TO ANSWER. AT THE END» 
I’LL SHOW YOU THE QUESTIONS MISSED 
AND GIVE YOU YOUR SCORE. 


READY ?0K 


[Clear screen] 


I HAVE 15 QUESTIONS AVAILABLE. 
HOW MANY WOULD YOU LIKE?0 
AWWW, IT HAS TO BE 1 TO 15! 

I HAVE 15 QUESTIONS AVAILABLE. 
HOW MANY WOULD YOU LIKE?100 
AWWW, IT HAS TO BE 1 TO 15! 

I HAVE 15 QUESTIONS AVAILABLE. 
HOW MANY WOULD YOU LIKE?3 


[Clear screen] 


LONGEST RIVER IN THE WORLD?MISSISSIPPI 
WHOA NOW...! HERE’S A HINT: 

A SHADE OF GREEN 

LONGEST RIVER IN THE WORLD?THAMES 


A CORRECT ANSWER IS: 4 NILE 
READY?YES 


[Clear screen] 
LARGEST RIVER IN THE WORLD?AMAZON 
[Clear screen] 
HOT-DOGGIES! 
[Clear screen] 


A THREE-TOED SLOTH?WHO KNOWS? 
LET ME HELP! HERE’S A HINT: 
FIRST AND THIRD VOWELS 

A THREE-TOED SLOTH?AI 


[Clear screen] 
GREAT! 


[Clear screen] 


YOU ANSWERED 1 CORRECTLY 
ON THE FIRST TRY.e- 


THE QUESTIONS MISSED AT 
LEAST ONCE ARE: 


[Clear screen] 


QUESTION: 
A THREE-TOED SLOTH 


YOUR ANSWER: 
WHO KNOWS? 


A CORRECT ANSWER: 
Al 


READY ?YES 


QUESTION: 
LONGEST RIVER IN THE WORLD 


YOUR ANSWER: 
MISSISSIPPI 


A CORRECT ANSWER: 
NILE 


READY?GO ONee. 
[Clear screen] 


YOUR SCORE IS 33.33333933 Z! 
BYE-BYE» SAMMY 
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6.5.3 PROGRAM 18: Model Tutorial Program with Hints 


Based upon the previous two programs, it is possible to derive a ‘‘model’”’ 
program for a general type of tutorial interaction. For this model, a maximum 
of 50 possible questions and the presentation of two hints have been arbitrarily 
defined. The program is designed so that DATA elements corresponding to the 
number of possible questions, the number of questions to be presented, the text 
of the question, the text of the answer, and the text of the first and second hints 
are added to the program following statement 1670 (see statements 1590-1670). 

This model program shows that, once a general design has been defined, it 
is a relatively simple task to use the same program in a variety of conceptual 
applications. By adding an appropriate introduction via PRINT statements and 
DATA containing whatever content is desired, the program will ask questions, 
provide hints, and so forth, for any chosen topic. 


Refer to the listing of PROGRAM 18. 


JLOAD PROGRAM 18 


JLIST 

10 REM 
20 REM 
30 REM 
40 REM 
YO REM 
60 REM 
70 REM 
BO REM 
90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 


PROGRAM 18 


TUTORIAL "DIALOG": THIS PROGRAM 

IS BASED ON PROGRAM 17 CONCEPTS, 
PROGRAM DEMOS HOW "MODELS" MAY BE 

BUILT SO THAT DATA CORRESPONDING TO 

QUESTIONS» ANSWERS» AND HINTS OF A 

USER’S CHOOSING MAY BE ADDED TO THE 

MODEL PROGRAM. THIS PROGRAM 
ARBITRARILY HAS FIVE CHOICES FOR 
CORRECT/INCORRECT FEEDBACK INCLUDED, 
UP TO TWO HINTS ARE GIVEN FOR EACH 
INCORRECT RESPONSE. REVIEW OF MISSED 
QUESTIONS IS GIVEN AT CONCLUSION OF 
THE PROGRAM. DATA REPRESENTING THE 
NUMBER OF QUESTIONS AVAILABLE (N1) 

AND NUMBER OF QUESTIONS TO BE ASKED (N2) 
PLUS DATA FOR QUESTION» ANSWER,» HINT1 >» 
AND HINT2 ARE ADDED AFTER LINE 1670. 


A$( ) - CORRECT ANSWER 
C - NUMBER-CORRECT COUNTER 
C$( ) - RANDOM POSITIVE FEEDBACK 
F - COUNTER FOR THE NUMBER OF TIMES 
A QUESTION HAS BEEN MISSED 
H1$( ) - FIRST HINT 
H2$( ) - SECOND HINT 
N1 - TOTAL NUMBER OF QUES» ANS» HINTS 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
910 
320 
330 
940 
390 
560 
970 
980 
»90 
600 
610 
620 
630 
640 
650 
660 
670 
680 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
10390 
1100 
1110 


Show and Tell 


REM TO BE READ FROM DATA 

REM N2 - NUMBER OF QUESTIONS TO ASK IN LOOP 
REM Q¢$( ) - QUESTION ASKED 

REM R$ - USER RESPONSE (VIA INPUT) 

REM S$( ) - USER’S INCORRECT RESPONSE 

REM W$( ) - RANDOM FEEDBACK FOR INCORRECT RESPONSE 
REM X - RANDOM NUMBER (N1 TO 1) 

REM 2Z(X) - RANDOM NUMBER SELECTION FLAG 

REM 21(X) - FLAG FOR THE QUES. NO. MISSED 
REM —. hoe ee 

DIM 9$(50) »A$(5S0) »sH1$(50) »H2$(50) 

DIM S#$(50) +Z2(50) »21(50) »C$(5) »sW$(5) 

REM ===FEEDBACK FOR CORRECT/INCORRECT RESPONSE=== 
DATA "GRRREAT" +"NO..+THINK OF THIS" 

DATA "FINE" +"HOLD IT" »s"PERFECT" »"NO..-NOT YET" 
DATA "HOT-DOG"»"LET ME HELP" 

DATA "MARVELOUS" »"THIS MAY HELP" 

REM ===STORE CORRECT» INCORRECT RESPONSES=== 
FOR I = 1705 

READ C$(I) »W$(T) 

NEXT I 

REM Sessss2=22s2eS2 55 

REM READ THE NUMBER OF QUESTION "SETS" 

REM AVAILABLE FROM DATA AND THE NUMBER 

REM OF QUESTIONS TO ASK IN THE LOOP. 

REM ss — 2 

READ Ni »N2 

REM ===NOW STORE QUES» ANS» HINT1» HINT2=== 
FOR I = 1 TO Ni 

READ QO$(1) sAS(T) »HI1$(1) »sH29(1) 
Z2(I) = 0 
Z1i(I) = 0 

NEXT I 

= 0 
REM SSSsseseeoasece 


REM INTRODUCTORY STATEMENTS MAY BE ADDED 
REM HERE UP TO LINE NUMBER 1000, 


REM SSeesesoseeses= == 

FOR Q = 1 TO N2 

HOME :F = 0O 

PRINT =: PRINT =: PRINT 
X = INT (N1 * RND (1) + 1) 
IF Z(X) = 1 THEN 1030 
Z2(X) = 1 

REM ===ASK THE QUESTION=== 
PRINT =: PRINT 9$(X)35 

INPUT R$ 
R = INT (5 # RND (1) + 1) 


IF R& = A$(X) THEN 1350 
HOME : FOR I = 1 TO 10: PRINT =: NEXT I 117 
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1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 


REM ===FLAG QUES. NO. MISSED AND STORE RESPONSE=== 
Z1(X) = 1 
S$(X) = R$ 

=F +1 


REM GIVE EITHER THE FIRST HINT» THE SECOND 
REM HINT+ OR THE CORRECT ANSWER. 


ON F GOTO 12107/1240,1270 

PRINT W$(R)5"! HERE’S A HINT:" 

PRINT H1$(X) 

GOTO 1070 

PRINT W$(R) 5"! HERE’S ANOTHER HINT:" 
PRINT H2$(X) 

GOTO 1070 

PRINT "A CORRECT ANSWER IS "sAS$(X) 
PRINT "READY TO GO ON"s 


INPUT 2$ 
GOTO 1400 
REM s2seses2"e2ese2H2e22 


REM CLEAR, CENTER» GIVE FEEDBACK 

REM AND HOLD IT FOR A MOMENT. 

REM SSesseSseecesece 

HOME : FOR I = 1 TO 11: PRINT =: NEXT I 
PRINT TAB( 10)5CS$(R)5"!" 

FOR I = 1 TO 1000: NEXT I 

IF F < > O THEN 1400 


=C +i 
NEXT Q 
HOME : FOR I = 1 TO 10: PRINT =: NEXT I 
PRINT "FIRST TRY CORRECT = "sC 


IF C < > N2 THEN 1460 

PRINT "E X CELLENT !" 

GOTO 9999 

PRINT "THE ONES MISSED AT LEAST ONCE ARE:" 
FOR I = i TO Ni 

IF 21(I) = O THEN 1580 

PRINT : PRINT : PRINT 

PRINT "QUESTION: "sQ$(T1) 

PRINT 

PRINT "YOUR ANSWER: "3S$(1) 

PRINT 

PRINT "CORRECT ANSWER: "sA$(T1) 

PRINT s: PRINT 

PRINT TAB( 10) 5"READY" 5 

INPUT 2$ 

NEXT I 

REM SSese see essecses 

REM ADD A DATA STATEMENT HERE FOR 

REM THE NUMBER OF QUESTION "SETS" AND 
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1620 REM THE NUMBER OF QUESTIONS TO BE ASKED. 

1630 REM EXAMPLE: DATA 25%15 

1640 REM THEN ADD DATA FOR THE QUESTION "SETS" 
1650 REM IN THE SEQUENCE "QUESTION"» "ANSWER" 

1660 REM "FIRST HINT" »"SECOND HINT" 


1670 REM Sesessneez22=2 
9999 PRINT " BYE-BYE..." 
10000 END 


6.5.4 PROGRAM 19: Model Tutorial Program with Dialog 


A tutorial program can do more than just give hints when users are having 
difficulty with a given question: It can, to some degree, approach the type of 
dialog that occurs between a tutor and a student. As an example, consider a 
question related to the chemical concept of a mole. By definition, a mole is a 
quantity of a chemical compound equal to the formula weight (FW) of that 
compound. This quantity is usually expressed in grams, but it could be any mass 
unit (ounces, tons, and so on). For a given weight of a chemical compound, the 
number of moles is determined by the following formula: 


Moles = Weight (grams)/FW (gram-formula weight) 


The following program illustrates a type of dialog that could occur in a 
tutorial instructional computing application. Note that the program makes use 
of the ABS (absolute) function to allow for a tolerance of +0.1 in the user’s 
answers (see statements 450—500 and 680). Also be reminded that this is, in 
essence, a program fragment and does not include an introduction, examples, 
random selection of positive responses, use of counters for the number correct, 
and so on. These elements should always be incorporated in programs for actual 
use in an educational setting. 


RUN from disk and refer to the listing and run of PROGRAM 19. 


JLOAD PROGRAM 19 
JLIST 


10 REM PROGRAM 19 

20 REM =s6 22 .32ss22se 

30 REM TUTORIAL "DIALOG": THIS 

40 REM PROGRAM DEMOS MORE OF A "TUTORIAL" 

YO REM TYPE OF INTERACTION BETWEEN USER AND 

60 REM THE PROGRAM, USING THE CHEMICAL CONCEPT 

70 REM OF THE "MOLE" AS AN ILLUSTRATIVE VEHICLE. 

80 REM ONLY THREE COMPOUNDS ARE USED IN 

90 REM THE EXAMPLE WITH THEIR FORMULAS AND 

100 REM FORMULA WEIGHTS STORED IN ONE-DIMENSION ARRAYS. 
110 REM USE OF THE ABS (ABSOLUTE) FUNCTION 

120 REM IS ALSO INTRODUCED. 119 
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130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
4350 
460 
470 
480 
490 
900 
910 
320 
330 
940 
390 
~60 
970 
580 
990 
600 
610 
620 


REM C%#( ) - CHEMICAL COMPOUND FORMULA 

REM F - FLAG FOR MISSING QUESTION 1ST TRY 
REM G - RANDOM NUMBER OF GRAMS OF COMPOUND 
REM M - NUMBER OF MOLES (GRAMS/FORMULA WT) 
REM R» R$» V - USER RESPONSES (VIA INPUTS) 
REM Wt ) - FORMULA WEIGHT OF A COMPOUND 
REM xX - RANDOM NUMBER (3 TO 1) FOR 

REM COMPOUND SELECTION 


DIM C$(3) »W(3) 

DATA "KOH" s5S6s"HF"+20s"KI" +166 

REM ===STORE THE FORMULAS AND WEIGHTS=== 
FOR I = 1 70 3 

READ C$(I) »W(T) 

NEXT I 


REM SS eescse eee ses== 
REM GET A RANDOM NUMBER OF GRAMS AND A 
REM RANDOM COMPOUND. THEN CALCULATE MOLES. 
REM SSsseseaes=s25525 
= INT (10 * RND (1) + 1) * 20 
= INT (3 * RND (1) + 1) 
= G / W(X) 
REM ===ASK THE QUESTION=== 
PRINT 
PRINT "HOW MANY MOLES OF "sC$(X)5" ARE" 
PRINT "PRESENT IN "G5" GRAMS" s 
INPUT R 
PRINT 
REM a 
REM USE THE ABS FUNCTION TO ACCEPT AN 
REM ANSWER THAT IS WITHIN O-.1 OF THE 
REM CORRECT ANSWER AND THE USER’S ANSWER. 
REM SSssessesesasssss 
IF ABS (R - M) <¢ = .1 THEN 860 
REM ===GIVE ANSWER ON SECOND MISS=== 
IF F = 1 THEN 800 
= 1 
REM ===ASK FIRST STEP IN SOLUTION SEQUENCE=== 
PRINT "NO..-DID YOU DIVIDE THE" 
PRINT "WEIGHT BY THE FW (Y OR N)"s5 


INPUT R$ 

PRINT 

IF R$ = "YY" THEN 630 

PRINT "WELL+ YOU SHOULD! TRY AGAIN." 
GOTO 400 


REM ===CHECK FOR SECOND STEP IN SOL’N SEQUENCE== 


630 PRINT "GOOD. THAT IS CORRECT." 

640 PRINT "WHAT VALUE DID YOU USE" 

650 PRINT "FOR THE FW OF "sC$(X)5 

660 INPUT VY 

670 PRINT 

680 IF ABS (V - W(X)) < = .1 THEN 750 

690 PRINT "AHA! THIS MAY BE YOUR" 

700 PRINT "PROBLEM. THE APPROXIMATE" 

710 PRINT "FW OF "SC$(X)5" IS "sW(X) 

720 PRINT "NOW TRY IT AGAIN..." 

730 GOTO 400 

740 REM ===IF CORRECT TO HERE» MUST BE MATH 
750 PRINT "“HMMM...»THAT IS THE CORRECT" 

760 PRINT "FW FOR "$C$(X)5". YOU MUST" 

770 PRINT "HAVE MADE AN ARITHMETIC" 

780 PRINT "ERROR. CHECK AND TRY AGAIN." 

7390 GOTO 400 

800 PRINT 

810 REM ===SHOW THE CORRECT SOLUTION=== 

820 PRINT "MOLES = WT/FW" 


830 PRINT "= "sGs"/"5W(X) 

840 PRINT "= "5 INT (M # 100) / 100 

850 GOTO 880 

860 PRINT " EXCELLENT !" 

870 REM ===LET USER CONTINUE AT WILL=== 
880 PRINT 


890 PRINT "WANT ANOTHER (Y OR N)"s5 
900 INPUT R&% 

910 IF R$ = "¥" THEN 310 

920 END 


JRUN 


HOW MANY MOLES OF KI ARE 
PRESENT IN 200 GRAMS?33 


NO..-DID YOU DIVIDE THE 
WEIGHT BY THE FW (Y OR N)?Y 


GOOD. THAT IS CORRECT. 
WHAT VALUE DID YOU USE 
FOR THE FW OF KI?56 


AHA! THIS MAY BE YOUR 
PROBLEM. THE APPROXIMATE 
FW OF KI IS 166 

NOW TRY IT AGAIN... 


HOW MANY MOLES OF KI ARE 
PRESENT IN 200 GRAMS?1.2 
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EXCELLENT ! 
WANT ANOTHER (Y OR N)?Y 


HOW MANY MOLES OF HF ARE 
PRESENT IN 120 GRAMS?2 


NO..-DID YOU DIVIDE THE 
WEIGHT BY THE FW (Y OR N)?N 


WELL» YOU SHOULD! TRY AGAIN. 


HOW MANY MOLES OF HF ARE 
PRESENT IN 120 GRAMS?1.5 


MOLES = WT/FW 
= 120/20 
= 6 


WANT ANOTHER (Y OR N)?Y 


HOW MANY MOLES OF KI ARE 
PRESENT IN 120 GRAMS?.5 


NO...-DID YOU DIVIDE THE 
WEIGHT BY THE FW (Y OR N)?Y 


GOOD. THAT IS CORRECT, 
WHAT VALUE DID YOU USE 
FOR THE FW OF KI?166 


HMMM...» THAT IS THE CORRECT 
FW FOR KI. YOU MUST 

HAVE MADE AN ARITHMETIC 
ERROR. CHECK AND TRY AGAIN. 


HOW MANY MOLES OF KI ARE 
PRESENT IN 120 GRAMS?.71 


EXCELLENT ! 


WANT ANOTHER (Y OR N)?N 


6.6 SIMULATION APPLICATIONS 


Usually, simulation applications in instructional computing are used when it is 
important to understand a given concept but one or more of the following sit- 
122 uations apply: 
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1. There are time and/or space and/or equipment limitations. 
2. The real process might place the user in a perilous situation. 


3. Review and/or practice would be beneficial prior to performing the actual 
experiment or process. 


Simulations in instructional computing are based upon models, most of which 
are mathematical in origin. In general, these programs allow a user to manipulate 
parameters and perhaps discover the effect of those manipulations. One popular 
application is in population dynamics: What happens to the population over a 
certain span of years if both the birth and death rates decrease and the female/ 
male birth ratio increases? Another application is in environmental studies: What 
happens to the water oxygen content if untreated raw sewage is dumped into a 
slow-moving stream? A fast-moving river? What is the effect of performing pri- 
mary treatment? Secondary treatment? How does temperature affect the above 
results? 

Again, the example programs discussed below are not extensive simulations; 
they do illustrate the concept of basing the design on some defined model. 


6.6.1 PROGRAM < 20: Caloric Intake and Ideal Weight 


Diet and proper body weight maintenance are popular concems in our soci- 
ety. It is well known that, by careful control of calorie intake and a good exercise 
program, weight can be lost or gained and then maintained at an ‘‘ideal’’ level. 

PROGRAM 20 is based upon a model which defines a woman’s ideal weight 
as 100 pounds plus (or minus) 5 pounds for each inch over (or under) 5 feet in 
height. A man’s ideal weight is defined as 106 pounds plus (or minus) 6 pounds 
for each inch over (or under) 5 feet in height. This weight, multiplied by an 
exercise activity factor of 12 if not active, 15 if moderately active, or 18 if very 
active, gives an approximate daily calorie count to maintain the ideal weight. A 
prediction of weight loss or gain can be made by comparing this count with an 
actual (or, in this case, simulated) daily caloric intake. 

PROGRAM 20 allows manipulation of a limited daily menu and exercise 
activity factors to examine the effects on weight control. However, its use here 
is primarily that of a simple illustration of basing a simulation on a defined model. 
Any model (within reason) can be simulated by a computer program. The most 
important step in developing the program is careful analysis of its design from 
the model. 


RUN from disk and refer to the listing and run of PROGRAM 20. 


JLOAD PROGRAM 20 
ILIST 


10 REM PROGRAM 20 DESCRIPTION 
20 REM —-——— o-oo ee 
30 REM SIMULATION: THIS PROGRAM PRESENTS A 123 
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40 REM SIMULATED (AND LIMITED!) DAILY MENU 
YO REM FOR SELECTION BY A USER. BASED UPON 
GO REM THE MENU SELECTED AND THE SEX» HT.» 
70 REM AND ACTIVITY OF THE USER» AN IDEAL 

80 REM WEIGHT AND CALORIC INTAKE TO MAIN- 

30 REM TAIN THAT WEIGHT IS GIVEN. FINALLY» 
100 REM A WEIGHT DIFFERENTIAL (LOSS OR GAIN) 
110 REM ASSUMING CONSISTENT CALORIC INTAKE 
120 REM IS SHOWN. BUT+ THE MENU IS LIMITED! 


130 REM meesees2zesssses2e22=22 
140 REM 

150 REM VARIABLE DICTIONARY 
160 REM S=SsS2525]25-===-== 


170 REM A - EXERCISE ACTIVITY FACTOR 

180 REM B - BASE WEIGHT 

190 REM C - CALORIES TO MAINTAIN IDEAL NWT. 
200 REM C() - CALORIES PER FOOD PORTION 
210 REM E - TYPE OF EXERCISE 

220 REM F#() - FOOD LIST FOR MEALS 

230 REM H - HEIGHT IN INCHES 

240 REM I - IDEAL WEIGHT 

290 REM MS - MEAL 


260 REM N - NUMBER OF THE FOOD SELECTED 
270 REM P - POUNDS (LOSS OR GAIN) 

280 REM S - SEX OF THE USER 

290 REM T - TOTAL CALORIC INTAKE 

30O REM W - WT. FACTOR/INCH FROM 5 FT. 
310 REM 2Z() - FLAG FOR FOOD SELECTED 
370 REM S2=s2ssss2e]22522>= 225252 

330 REM 


340 DIM C(11) sFS$(11) sZ2¢11) 

350 HOME : FOR J = 1 TO 9: PRINT : NEXT J 

360 PRINT "A SIMULATED DAILY CALORIC INTAKE AND" 

370 PRINT : PRINT " ITS EFFECT ON YOUR IDEAL WEIGHT" 

380 FOR J = 1 TO 4000: NEXT J 

390 HOME : PRINT : PRINT "YOU WILL BE PRESENTED A MENU FOR BREAK-" 
400 PRINT : PRINT "FAST» LUNCH» AND DINNER. SELECT AS MANY" 


410 PRINT : PRINT "ITEMS FROM EACH MENU AS YOU WISH. AFTER" 
420 PRINT : PRINT "YOUR DAILY MENU HAS BEEN COMPLETED» YOU" 
430 PRINT : PRINT "WILL RECEIVE A SUMMARY OF YOUR CALORIC" 
440 PRINT : PRINT "INTAKE AND ITS EFFECT ON YOUR IDEAL WT." 
450 PRINT =: PRINT " DEPRES § AN Y K E Your" 
460 GET 2Z$ 

470 REM 

480 REM ===BREAKFAST DATA=== 

490 REM 


900 DATA "BREAKFAST" +"BACON OR SAUSAGE" s200,"CEREAL WITH MILK" +250 
910 DATA "COFFEE (BLACK)"»5»"COFFEE (WITH SUGAR)" »50 

920 DATA “EGGS (2)" 1100 +"MILK" 9125 

930 DATA "ORANGE JUICE" »60+"PANCAKES" +225 


540 
090 
960 
370 
980 
990 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7350 
760 
770 
780 
790 
B00 
810 
820 
B30 
B40 
850 
860 
870 
880 
890 
900 
910 
320 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
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DATA “SWEET ROLL" +250 s,"TOAST" +75 »"WAFFLES" »550 


GOSUB 1290 

REM 

REM ===LUNCH DATA=== 
REM 


DATA "LUNCH" »"BEER" »125+"BEFORE LUNCH DRINK" 5115 
DATA "CHEESEBURGER" »310s,"COLA" +144 

DATA "COTTAGE CHEESE" »110+"CRACKERS" +75 

DATA "FRENCH FRIES" »400 +"HAMBURGER" +260 

DATA "MILK" +1255"TUNA FISH" 950 

DATA "VEGETABLE OR FRUIT SALAD" +75 


GOSUB 1290 

REM 

REM ===DINNER DATA=== 
REM 


DATA "DINNER" »"APPLE (OF COURSE) PIE" +300 

DATA "BAKED POTATO" +250,"BEFORE DINNER DRINK" »115 
DATA “BEEF STEAK" +560 s,"BEETS" »40 

DATA "DOZEN RAW OYSTERS" +>240,"FISH" »400 

DATA "MACARONI" »85 »>"PEAS" +115 

DATA “TOSSED SALAD"+755"T.V. DINNER" 1500 

GOSUB 1290 

GOSUB 1530 

PRINT "NOW,s SOME PERSONAL DATA IS NEEDED..." 

FOR J = 1 TO 3000: NEXT J 


GOSUB 1530 

PRINT "ARE YOU:" 
PRINT " 1, FEMALE" 
PRINT " 2+ MALE" 
PRINT "ENTER 1 OR 2"5 
INPUT S$ 


IF S < 1 OR S > 2 THEN 830 

IF S = 1 THEN B = 100:W = Ss: GOTO 880 
= 106:W = 6 

GOSUB 1530 

PRINT "WHAT IS YOUR HEIGHT IN INCHES"; 
INPUT H 

IF H < 48 OR H > 84 THEN 890 

= ((H - 60) * W) + B 


GOSUB 1530 
PRINT "DO YOU CONSIDER YOURSELF:" 
PRINT " 1. SEDENTARY (LITTLE EXERCISE)" 
PRINT " 2+ MODERATELY ACTIVE" 
PRINT " 3. VERY ACTIVE" 
PRINT "ENTER 1+ 2% OR 3"5 
INPUT 
IF E 


on A Mm 


1 OR E > 3 THEN 980 


IF E 1 THEN A i2: GOTO 1040 
IF E 2 THEN A 15: GOTO 1040 
IF E = 3 THEN A = 18 125 
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1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


C 


P 


= I #*# A 
HOME : PRINT TAB( 8)3"SUMMARY OF DATA": PRINT 
PRINT "YOUR IDEAL WEIGHT IS "“sIs PRINT 
PRINT "TO MAINTAIN THAT WEIGHT YOU NEED" 
PRINT Cs" CALORIES PER DAY.": PRINT 
PRINT "YOUR DAILY CALORIC INTAKE BASED UPON" 
PRINT “THE LIMITED MENU IS "iT5" CALORIES.": PRINT 
PRINT " DEPRESS ANY KE Yoo" 
GET 2% 
HOME =: PRINT : PRINT PRINT " DATA 
= INT ((¢((T - C) * 7) 4 3500) * 10) / 10 
FOR J = 1 TO 4: PRINT NEXT J 
PRINT : PRINT "IF YOU ARE CONSISTENT IN THIS CALORIC" 
PRINT : PRINT "INTAKEs YOUR WEIGHT DIFFERENTIAL WILL" 
PRINT =: PRINT "BE APPROXIMATELY "3P5" POUNDS/WEEK." 
PRINT : PRINT " DEPRES § AN Y K E You" 
GET 2$ 
GOSUB 1530 
PRINT "DO YOU WISH ANOTHER ANALYSIS (Y OR N)"S5 
INPUT 2$% 
IF 2% = "Y¥" THEN T = Os: RESTORE =: GOTO 550 
GOSUB 1530 
PRINT "MAY YOUR BODY BE BEAUTIFUL..." 
FOR J = 1 TO 4000: NEXT J: HOME 
END 
READ M$ 
FOR J = 1 TO 11: READ FS(J)»C(J):s NEXT J 
HOME : PRINT TAB( 14)5M$%: PRINT 
PRINT “" FOOD"$ TAB( 28) s"CALORIES": PRINT 
FOR J = 1 TO 11 
IF 2Z2(J) = O THEN 1390 
REM 
REM ===INVERSE ITEMS SELECTEDs GIVE CALORIES=== 
REM 
INVERSE PRINT Js". "SF$(J)5s NORMAL PRINT TAB( 
GOTO 1400 
PRINT Ji". “SsFS(J) 
NEXT J 
PRINT "12, CONTINUE TO NEXT SECTION..." 
PRINT : PRINT "YOUR CHOICE(S) (1 TO 12)"5 
INPUT N 


IF N < 1 OR N > 12 THEN 1420 


IF N = 12 THEN 1510 

REM 

REM ===FLAG THE NUMBER OF THE ITEM SELECTED=== 
REM 
Z(N) = 1 
T = T + C(N): GOTO 1310 

FOR J = 1 TO 11:2(J) = O: NEXT J 


RETURN 


ANAL YS TI §" 


30)sC(J): 


1530 HOME : FOR J = 1 TO 8: PRINT : NEXT J 


1540 RETURN 

JRUN 

[Clear screen] 

A SIMULATED DAILY CALORIC INTAKE AND 
ITS EFFECT ON YOUR IDEAL WEIGHT 

[Clear screen] 


YOU WILL BE PRESENTED A MENU FOR BREAK- 
FAST» LUNCH» AND DINNER. SELECT AS MANY 
ITEMS FROM EACH MENU AS YOU WISH. AFTER 
YOUR DAILY MENU HAS BEEN COMPLETED: YOU 
WILL RECEIVE A SUMMARY OF YOUR CALORIC 
INTAKE AND ITS EFFECT ON YOUR IDEAL WT. 


DEPRES S§ AN Y K E Yoo 
[Clear screen] 


BREAKFAST 
FOOD CALORIES 


1. BACON OR SAUSAGE 

2. CEREAL WITH MILK 

3. COFFEE (BLACK) 

Q4. COFFEE (WITH SUGAR) 
o+ EGGS (2) 

6. MILK 

7. ORANGE JUICE 

8. PANCAKES 

9. SWEET ROLL 

10. TOAST 

11. WAFFLES 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)7?1 


[Clear screen] 


BREAKFAST 
FOOD CALORIES 
200 


2. CEREAL WITH MILK 
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3. COFFEE (BLACK) 

4. COFFEE (WITH SUGAR) 

o+ EGGS (2) 

6. MILK 

7. ORANGE JUICE 

8. PANCAKES 

9. SWEET ROLL 

10. TOAST 

11, WAFFLES 

12, CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?5 
[Clear screen] 


BREAKFAST 
FOOD CALORIES 


1. BACON OR SAUSAGE 200 
2. CEREAL WITH MILK 

3. COFFEE (BLACK) 

Q. COFFEE (WITH SUGAR) 


0» EGGS (2) 100 
6. MILK 


7. QRANGE JUICE 

8. PANCAKES 

9. SWEET ROLL 

10. TOAST 

11, WAFFLES 

12. CONTINUE TO NEXT SECTION. +. 


YOUR CHOICE(S) (1 TO 12)76 
[Clear screen] 


BREAKFAST 
FOOD CALORIES 


1. BACON OR SAUSAGE 200 
2. CEREAL WITH MILK 

3. COFFEE (BLACK) 

4. COFFEE (WITH SUGAR) 

2+ EGGS (2) 100 
G. MILK 125 
7. QRANGE JUICE 

8. PANCAKES 

9. SWEET ROLL 

10. TOAST 

11. WAFFLES 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?7 
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[Clear screen] 


BREAKFAST 
FOOD CALORIES 
1. BACON OR SAUSAGE 200 


2. CEREAL WITH MILK 

3. COFFEE (BLACK) 

4, COFFEE (WITH SUGAR) 
EGGS (2) 100 
MILK 125 
ORANGE JUICE 60 

8. PANCAKES 

9. SWEET ROLL 

10. TOAST 

11, WAFFLES 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)710 
[Clear screen] 


BREAKFAST 
FOOD CALORIES 


1. BACON OR SAUSAGE 200 

2» CEREAL WITH MILK 

3+ COFFEE (BLACK) 

4. COFFEE (WITH SUGAR) 
EGGS (2) 100 
MILK 125 
ORANGE JUICE 60 

8. PANCAKES 

9. SWEET ROLL 

75 

11. WAFFLES 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)712 
[Clear screen] 


LUNCH 
FOOD CALORIES 


1. BEER 

2. BEFORE LUNCH DRINK 

3. CHEESEBURGER 

&. COLA 

9+ COTTAGE CHEESE 129 
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6. CRACKERS 

7. FRENCH FRIES 

8. HAMBURGER 

J. MILK 

10, TUNA FISH 

11. VEGETABLE OR FRUIT SALAD 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?4 


[Clear screen] 


LUNCH 
FOOD CALORIES 


1. BEER 

2. BEFORE LUNCH DRINK 

3. CHEESEBURGER 

144 
9+ COTTAGE CHEESE 

6. CRACKERS 

7. FRENCH FRIES 

8. HAMBURGER 

9. MILK 

10. TUNA FISH 

11. VEGETABLE OR FRUIT SALAD 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)710 
(Clear screen] 
LUNCH 
FOOD CALORIES 


1. BEER 

2+ BEFORE LUNCH DRINK 

3. CHEESEBURGER 

144 
3+ COTTAGE CHEESE 

6. CRACKERS 

7. FRENCH FRIES 

8. HAMBURGER 

9. MILK 

50 
11. VEGETABLE OR FRUIT SALAD 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?712 


[Clear screen] 
DINNER 
FOOD CALORIES 


1. APPLE (OF COURSE) PIE 
2+ BAKED POTATO 

3. BEFORE DINNER DRINK 
4. BEEF STEAK 

>+ BEETS 

6. DOZEN RAW OYSTERS 

7. FISH 

8. MACARONI 

9. PEAS 

10. TOSSED SALAD 

il. T.V. DINNER 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?4 
[Clear screen] 
DINNER 
FOOD CALORIES 


1. APPLE (OF COURSE) PIE 

2+ BAKED POTATO 

3. BEFORE DINNER DRINK 

560 
0+ BEETS 

6. DOZEN RAW OYSTERS 

7. FISH 

8. MACARONI 

9. PEAS 

10. TOSSED SALAD 

11. TV. DINNER 

12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?2 
[Clear screen] 
DINNER 
FOOD CALORIES 


1. APPLE (OF COURSE) PIE 


2» BAKED POTATO 290 
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3. BEFORE DINNER DRINK 


560 
>» BEETS 

6. DOZEN RAW OYSTERS 

7. FISH 

8. MACARONI 

9. PEAS 


10. TOSSED SALAD 
11. T»V. DINNER 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?10 
[Clear screen] 
DINNER 
FOOD CALORIES 


1. APPLE (OF COURSE) PIE 


2+ BAKED POTATO 290 


3. BEFORE DINNER DRINK 

14. BEEF STEAK | 560 
5, BEETS 

6, DOZEN RAW OYSTERS 

7. FISH 

B. MACARONI 

9. PEAS 

10. TOSSED SALAD 75 
11. T.¥. DINNER 

12, CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)?1 


[Clear screen] 


DINNER 

Foap CALORIES 
1. APPLE (OF COURSE) PIE 300 
2, BAKED POTATO 250 
3. BEFORE DINNER DRINK 
(4. BEEF STEAK, 560 
5, BEETS 
6. DOZEN RAW OYSTERS 
7. FISH 
8, MACARONI 
9. PEAS 


10. TOSSED SALAD 73 
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11. T.V. DINNER 
12. CONTINUE TO NEXT SECTION... 


YOUR CHOICE(S) (1 TO 12)? 12 


[Clear screen] 


NOW, SOME PERSONAL DATA IS NEEDED... 


[Clear screen] 
ARE YOU: 
1. FEMALE 


2» MALE 
ENTER 1 OR 272 


[Clear screen] 


WHAT IS YOUR HEIGHT IN INCHES?70 


[Clear screen] 

DO YOU CONSIDER YOURSELF: 
1. SEDENTARY (LITTLE EXERCISE) 
2.» MODERATELY ACTIVE 


3+ VERY ACTIVE 
ENTER 1» 2% OR 372 


[Clear screen] 
SUMMARY OF DATA 
YOUR IDEAL WEIGHT IS 166 


TO MAINTAIN THAT WEIGHT YOU NEED 
2490 CALORIES PER DAY, 


YOUR DAILY CALORIC INTAKE BASED UPON 
THE LIMITED MENU IS 1935 CALORIES. 


DEPRES S&S AN Y K E Yous 


(Clear screen] 
DATA ANAL YS I § 


IF YOU ARE CONSISTENT IN THIS CALORIC 133 
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INTAKE YOUR WEIGHT DIFFERENTIAL WILL 
BE APPROXIMATELY -1 POUNDS/WEEK. 


DEPRESS AN Y K E Yoo. 


[Clear screen] 


DO YOU WISH ANOTHER ANALYSIS (Y OR N)?N 


[Clear screen] 
MAY YOUR BODY BE BEAUTIFUL... 


[Clear screen] 


134 


6.6.2 PROGRAM 21: Dealing a Bridge Hand 


As might be expected, one easy model to simulate is a deck of 52 cards. Our 
manipulation of the model will be limited to shuffling the deck and dealing one 
hand of 13 cards. A simulated deck may be considered as a two-dimensional 
array of 13 rows (card values) by 4 columns (suits). Two random-number gen- 
erators can pick (deal) a given row and column, respectively, defining a position 
in the array. Since the random row also defines the card value (ace, deuce, etc.) 
and the random column defines the suit (clubs, diamonds, etc.), it is simple to 
PRINT the card ‘‘dealt.’’ The position in the array may be flagged so that any 
dealt card will not be redealt until the deck has been “‘shuffled’’ (by reinitializing 
the array). 

PROGRAM 21 simulates dealing a bridge hand (13 cards), and then arrang- 
ing the hand by suit. This ‘arranging the hand by suit’’ introduces one example 
of a common programming strategy: sorting (see statements 880—1010). That is, 
let the program order a given list in either increasing or decreasing value. In the 
example here, the list is sorted in decreasing order by suit value (4—1) in the 
one-dimensional array S1(n). Thus, all the 4’s are placed together, followed by 
all the 3’s, and so on. Each suit dealt also has a card value, Cl(n), where n = 
1-13, assigned with it. This value is ‘‘carried’’ with each suit as it is sorted. (Also 
note another use of the IF-THEN statement in statements (650—730.) 

How could the sorting routine be modified so that it would alphabetize a list 
of names input into one array, L$(n), as: 


LAST NAME(space)FIRST NAME 


and then print out the sorted (alphabetized) list? (Note: Program A662 on the 
test diskette gives one possible solution.) 


RUN from disk and refer to the listing and run of PROGRAM 21. 


Show and Tell 


JLOAD PROGRAM 2! 
JLIST 


10 REM PROGRAM 21 

20 REM SeseeSsSsessss2= 

30 REM SIMULATION: THIS 

40 REM PROGRAM DEMOS THE USE OF A 2-DIM ARRAY 

90 REM (13 ROWS BY 4 COLUMNS) TO SIMULATE 

60 REM A CARD DECK (13 CARD VALUES BY 4 SUITS). 

70 REM THIRTEEN CARDS (E.G.» A BRIDGE HAND) 

80 REM ARE RANDOMLY SELECTED FROM THE "DECK." 

90 REM A NEW USE OF THE IF-THEN STMT IS INTRODUCED 
100 REM IN COUNTING "HONOR" POINTS. THE "GET" 

110 REM STMT IS SHOWN AS AN ALTERNATIVE TO INPUT. 
120 REM THE FIRST EXAMPLE OF A SORT IS ALSO GIVEN. 


130 REM Sessesesezzeezxze2 
140 REM VARIABLE DICTIONARY 
150 REM Seelsolettzssscs=see 


160 REM C - CARD "VALUE" (1-13) 

170 REM Ci1( ) - DEALT CARD "VALUE" STORED 

180 REM FOR LATER SORTING 

190 REM C#( ) - CARD "NAME" (ACE, DEUCE, ETC.) 
200 REM CC >» ) - CARD "DECK" (2-DIM ARRAY) 

210 REM P - HONOR POINT COUNTER (ACE = 4,» 

220 REM KING = 3» QUEEN = 2, JACK = 1) 

230 REM § - SUIT “VALUE" (1-4) 

240 REM S1( ) - DEALT CARD SUIT "VALUE" STORED 


250 REM FOR LATER SORTING 

260 REM S$( ) - SUIT "NAME" (CLUBS» DIAMONDS, ETC.) 
270 REM SsSssseeeessessee 

ZB8O DIM C(1324) .C$(13) »S$(4) »S1(14) .01(193) 

290 REM ===CARD NAMES=== 


300 DATA "ACE" s"DEUCE" »"TREY" s"FOUR" s"FIVE" »"SIX" 
310 DATA "SEVEN" »"EIGHT" »s"NINE" +"TEN" 
320 DATA "JACK" »"QUEEN" +"KING" 


330 REM ===SUIT NAMES=== 
340 DATA "CLUBS" >»"DIAMONDS" »"HEARTS" »"SPADES" 
350 REM ===STORE THE CARD NAMES=== 


360 FOR I = 1 7T0 13 

370 READ CS$(T) 

380 NEXT I 

3990 REM ===STORE THE SUIT NAMES=== 
400 FOR I = 1 TO 4 

410 READ S$(TI) 

420 NEXT I 


430 HOME 

440 PRINT " A SIMULATED BRIDGE HAND" 
450 PRINT 

460 REM Ssesenaenee222z2222 


470 REM INITIALIZE THE ARRAY (SHUFFLE 135 
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480 REM THE CARD DECK) 

490 REM Srsssssstzzesse22 

900 FOR I = 1 TO 13 

910 FOR J = 1 T0 4 

920 C(I»J) = 0 

930 NEXT J 

940 NEXT I 

990 PRINT "HERE’S HOW THEY WERE DEALT:" 


960 PRINT 

970 ‘FOR D = 1 TO 13 

980 REM ===PICK A CARD NAME=== 

990 C = INT (13 * RND (1) + 1) 

600 REM ===PICK A SUIT NAME=== 

610 S = INT (@ # RND (1) + 1) 

620 REM ===HAS THIS CARD BEEN DEALT?=== 
630 IF C(C»S) = 1 THEN 590 

640 C(C»S) = 1 

650 REM —i— ee 


660 REM HERE IS A NEW USE OF IF-THEN STMTS: 

670 REM IF THE EXPRESSION IS TRUE» THEN THE 

680 REM VALUE OF P WILL BE INCREASED ACCORDINGLY, 
G90 REM 7. es 


700 IF C = 1 THEN P = P + 4: GOTO 750 

7iO0 IF C = 13 THEN P = P + 3: GOTO 750 

720 IF C = 12 THEN P = P + 2: GOTO 750 

730 IF C = 11 THEN P = P + 1 

740 REM ===STORE THE CARD NAME AND SUIT VALUES TO SORT=== 
7390 S$1(D) = § 

760 Ci(D) = C 


770 PRINT TAB( 5)5C$(C)s TAB( 12)5"0F"s TAB( 16)5S$(S) 
780 NEXT D 

790 PRINT 

800 PRINT "DEPRESS ANY KEY: AND I‘LL" 

810 PRINT “ARRANGE THE HAND BY SUIT." 

820 REM ioe ee 

830 REM THE "GET" STATEMENT STORES THE VALUE 
840 REM OF ANY DEPRESSED KEY IN THE VARIABLE. 
850 REM oe oe ee ee 

B60 GET 2% 

870 HOME 

880 REM =========SORTING ROUTINE========= 
890 FOR J = 2 TO 13 

900 Di = S1(J) 

910 D2 = C1(J) 

920 FOR K = J - 1701 STEP - 1 

930 IF S1(K) > = Di THEN 980 

940 S1(K + 1) = S1(K) 

950 Ci(K + 1) Ci(K) 

960 NEXT K 

970 K = 0 
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980 Si(K + 1) = Dil 

990 C1(K + 1) = D2 

1000 NEXT J 

1010 REM =========END OF SORTING==========5 

1020 PRINT TAB( S)3"ARRANGED BY SUIT:" 

1030 PRINT 

1040 FOR I = 1 TO 13 

1050 PRINT TAB( 5S) 5C$(C1(1I))5 TABC 12)5"0OF"s TABC 16)35 
S$(S1(1)) 

1060 IF Si(I) = S1(I + 1) THEN 1090 

1070 REM ===SKIP A LINE BETWEEN SORTED "SUITS"=== 

1080 PRINT 

1090 NEXT I 

1100 PRINT =: PRINT 

1110 PRINT "HOW MANY #H O N O R#* POINTS " 

1120 PRINT "ARE IN THIS HAND"S 

1130 INPUT H 

1140 IF H = P THEN 1170 

1150 PRINT "I COUNT "Ps" HONOR POINTS!" 

1160 GOTO 1180 

1170 PRINT "GO GET ’EMs GOREN! THAT’S RIGHT!" 

1180 PRINT =: PRINT "DEAL ANOTHER (Y OR N)"S 

1190 INPUT 2$ 

1200 IF 2$ < > "Y¥" THEN 1220 

1210 P = Os: HOME : GOTO 500 

1220 HOME : FOR I = 1 TO il: PRINT : NEXT I 

1230 PRINT "MAY LIFE BE A GRAND SLAM ALWAYS FOR YOU!" 

1240 END 

JRUN 


[Clear screen] 
A SIMULATED BRIDGE HAND 


HERE ’S HOW THEY WERE DEALT: 


SEVEN OF DIAMONDS 
QUEEN OF CLUBS 
FIVE OF HEARTS 
FIVE OF DIAMONDS 
JACK OF HEARTS 
ACE OF CLUBS 
TREY OF HEARTS 
TREY OF CLUBS 
SIX OF SPADES 
SIX OF HEARTS 
EIGHT OF HEARTS 
KING OF CLUBS 
TEN OF DIAMONDS 
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DEPRESS ANY KEY» AND I‘LL 
ARRANGE THE HAND BY SUIT. 


[Clear screen] 
ARRANGED BY SUIT: 
SIX OF SPADES 


FIVE OF HEARTS 
JACK OF HEARTS 
TREY OF HEARTS 
SIX OF HEARTS 
EIGHT OF HEARTS 


SEVEN OF DIAMONDS 
FIVE OF DIAMONDS 
TEN OF DIAMONDS 


QUEEN OF CLUBS 
ACE OF CLUBS 
TREY OF CLUBS 
KING OF CLUBS 


HOW MANY #H O N O R* POINTS 
ARE IN THIS HAND?9 
I COUNT 10 HONOR POINTS! 


DEAL ANOTHER (Y OR N)?Y 
[Clear screen] 
HERE ’S HOW THEY WERE DEALT: 


FIVE OF DIAMONDS 
FOUR OF HEARTS 
SEVEN OF CLUBS 
TREY OF SPADES 
KING OF ODOIAMONDS 
NINE OF DIAMONDS 
DEUCE OF HEARTS 
ACE OF CLUBS 
FIVE OF CLUBS 
FOUR OF CLUBS 
EIGHT OF CLUBS 
TEN OF SPADES 
FOUR OF SPADES 


DEPRESS ANY KEY» AND I’LL 
ARRANGE THE HAND BY SUIT. 


[Clear screen] 
ARRANGED BY SUIT: 


TREY OF SPADES 
TEN OF SPADES 
FOUR OF SPADES 


FOUR OF HEARTS 
DEUCE OF HEARTS 


FIVE OF DIAMONDS 
KING OF DIAMONDS 
NINE OF DIAMONDS 


SEVEN OF CLUBS 
ACE OF CLUBS 
FIVE OF CLUBS 
FOUR OF CLUBS 
EIGHT OF CLUBS 


HOW MANY #H O N O R* POINTS 
ARE IN THIS HAND?7 
GO GET ‘EM+» GOREN! THAT’S RIGHT! 


DEAL ANOTHER (Y OR N)?N 


[Clear screen] 


MAY LIFE BE A GRAND SLAM ALWAYS FOR YOU! 


6.6.3 PROGRAM 22: Rolling a Pair of Dice 


Another easy model to simulate is rolling a pair of dice. Any die rolled will 
give a random number, | through 6. The sum of the two dice is the roll value. 
Given an infinite number of rolls, what number is cast most often? PROGRAM 
22 can provide a simulated, but nonetheless, accurate answer to this question 
(within roll limits). A rough plot of the percentage distribution is also shown by 
printing the number of asterisks on a line that corresponds to the integer value 
of the percentage distribution (see statements 660—700). 

An interesting effect can be seen by changing statements 690 and 710 to: 


690 INVERSE:PRINT " "35 
710 NORMAL: PRINT 


Again, the most important point in designing and developing any simulation 
is in defining the model. Once this is done, it may be possible to design a sim- 
ulation of the model. (Note: For some fun and games, but a loosely based sim- 
ulation, RUN ISLAND from the diskette.) 


Show and Tell 
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RUN from disk and refer to the listing and run of PROGRAM 22. 


JLOAD PROGRAM 22 
JLIST 


10 REM PROGRAM 22 

20 REM sSo5 652 sss2=2= 

30 REM SIMULATION: THIS 

40 REM PROGRAM SIMULATES ROLLING A PAIR OF DICE 

90 REM UP TO 1000 TIMES» GIVING THE DISTRIBUTION 

60 REM FOR EACH SET OF ROLLS. EXAMINATION OF 

70 REM THE PERCENTAGE DISTRIBUTION OR ITS PLOT 

80 REM MAY BE USED TO ILLUSTRATE THE NORMAL 

90 REM DISTRIBUTION CURVE OF THE RANDOM-NUMBER 

100 REM GENERATOR» GIVEN SUFFICIENT ROLLS, 

110 REM SseeSeesceesseces= 

120 REM VARIABLE DICTIONARY 

130 REM —— 4 eee ee 

140 REM D1 - FIRST DIE (OF A PAIR OF DICE) 

150 REM D2 - SECOND DIE 

160 REM P( ) - COUNT OF A GIVEN VALUE FOR 

170 REM A ROLL OF A PAIR OF DICE 

180 REM Pi1( ) - PERCENTAGE DISTRIBUTION 

190 REM R - NUMBER OF ROLLS (VIA INPUT) 

200 REM S - SUM OF Di AND D2 (VALUE OF A GIVEN ROLL) 
210 REM SSesesss=zssze==2 

220 DIM P(12) »P1(12) 

230 HOME 

240 PRINT "THIS PROGRAM SIMULATES" 

290 PRINT "ROLLING A PAIR OF DICE" 

260 REM ===INITIALIZE THE COUNT ARRAY=== 

270 FOR I = 2 TO 12 
280 P(I) = 0 


310 PRINT "HOW MANY ROLLS"S$ 

320 INPUT R 

330 IF R < 1001 THEN 390 

340 PRINT "IT TAKES A WHILE TO DO MORE THAN" 

350 PRINT "1000 ROLLS...SO WHY DON’T YOU" 

360 PRINT "GIVE ME A LOWER NUMBER..." 

370 GOTO 300 

380 REM ===SHOW THE USER WE’RE DOING IT=== 

390 HOME : FOR I = 1 TO 10s PRINT : NEXT I: PRINT TAB( 
+"ROLLING..." 


400 REM ===00 THE ROLLS=== 

410 FOR T = 1 TOR 

420 REM ===GET A RANDOM VALUE FOR EACH DIE=== 
430 Di = INT (6 * RND (1) + 1) 


440 D2 = INT (6 * RND (1) + 1) 


8) 


JRUN 


[Clear screen] 


END 


REM ===SUM THE PAIR OF DICE=== 
= D1 + D2 
REM ===INCREASE THAT COUNT BY ONE=== 
P(S) = P(S) + 1 
NEXT T 
HOME 
PRINT "VALUE OF ROLL"$ TAB( 18)s"COUNT"$ TAB( 30) 5"Z" 
PRINT 
REM ===NOW SHOW THE DISTRIBUTION=== 
FOR L = 2 TO 12 
REM ===ROUND OFF THE PERCENTAGE VALUES=== 
P1(L) = INT ((P(L) + .5) * 100 / R) 
PRINT TAB( 6)5Ls TAB( 20)5P(L)5 TAB( 29)3 INT ((P(L) 
100 / R) * 100) / 100 
NEXT L 
PRINT 
PRINT "WANT TO SEE THE DISTRIBUTION" 
PRINT "CURVE (Y OR N)"S 
INPUT A$ 
IF AS <¢ > "¥" THEN 730 
HOME PRINT : PRINT " PERCENTAG E" 
PRINT " DIS TRIBUTI ON"s PRINT "— -------- 
FOR I = 2 TO 12 
PRINT Is TAB( 4)s"I"5 
FOR J = 1 TO P1(T) 
PRINT "#"5 
NEXT J 
PRINT 
NEXT I 
PRINT s PRINT "WANT ANOTHER SET OF ROLLS (Y OR N)"S 
INPUT A$ 
IF AS = "Y¥" THEN 270 


THIS PROGRAM SIMULATES 
ROLLING A PAIR OF DICE 


HOW MANY ROLLS?1000000 

IT TAKES A WHILE TO DO MORE THAN 
1000 ROLLS...SO WHY DON’T YOU 
GIVE ME A LOWER NUMBER... 


HOW MANY ROLLS?50 


Show and Tell 
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[Clear screen] 


ROLLING. .«,» 


[Clear screen] 


VALUE OF ROLL COUNT z 
z 2 4 
3 4 8 
Q 3 6 
) 6 12 
6 ) 10 
7 6 12 
8 7 14 
=) 10 20 
10 1 2 
11 ) 10 
12 1 2 


WANT TO SEE THE DISTRIBUTION 
CURVE (Y OR N)?Y 


[Clear screen] 


[ HHHHE 

[ HHHHHHHRES 
[HHHERESE 
[HHH EHH EE 

[ HHHHERHEREESE 
[HEHEHE HRHEHEES 
[LHHHHHRKHHRHHRREHEEEE 
LEHRER KEEEHEHHEHRES 
10 [#*#* 

L1 [RHRHHHHEERES 

12 [#*+# 


oOoaonousawdn 


WANT ANOTHER SET OF ROLLS (Y OR N)?Y 


HOW MANY ROLLS?100 


[Clear screen] 


ROLLING... 


[Clear screen] 


VALUE OF ROLL COUNT 4 
2 3 3 
3 ) rs) 
4 il 11 
rs) 15 is 
6 13 13 
7 14 14 
8 13 13 
9 7 7 
10 =) 9 
11 7 7 
i2 3 3 


WANT TO SEE THE DISTRIBUTION 
CURVE (Y OR N)?Y 


[Clear screen] 


[HREHHKHEKREE SE 

[L HEKEHHHHERHRHEES 
[HERR KEHHERREEE 
[HHHREHHERERHRHESE 
[ HHEKERHEREREEE 

[ HHREHES 

10 [RRRERHHES 

Ll [RRRRREH 

12 [#4 


on oa nawahN 


wo 


WANT ANOTHER SET OF ROLLS (Y OR N)?Y 
HOW MANY ROLLS?1000 
[Clear screen] 

ROLLING. «. 


[Clear screen] 


VALUE OF ROLL COUNT 4 
2 27 2.7 
3 02 919 
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4) 83 8.89 
) 100 10 

6 139 13.89 
7 165 16.5 
8 144 14,39 
9 108 10.8 
10 93 9.4 
11 09 ee) 
12 28 2.79 


WANT TO SEE THE DISTRIBUTION 
CURVE (Y OR N)?Y 


[Clear screen] 


[HHREE 

[EHERHEERE 
LHEHHHHHRHHE 
LEHHHEHHHHKHERGE 
LHEREEEHKHEEEEHESE 
LHEHHKKKHHHHHEE SH 
[HHHKHHHHEE 

10 [HHH HREES 

11 [een 

12 [** 


Ono uawWwdnN 


cw 


WANT ANOTHER SET OF ROLLS (Y OR N)?N 


6.7 TESTING 


Testing is another application similar to drill and practice, with the exception that 
no “assistance” is provided. A question is asked, user response is entered, and, 
at some point, the user’s performance is indicated. 


6.7.1 PROGRAM 23: Name the Seven Dwarfs 


PROGRAM 23 is a short example of a testing program. This particular pro- 
gram tests the naming of the seven dwarfs of Snow White fame. Names are 
READ into a one-dimensional array, and then a question loop asks for one of 
those names. An internal loop searches the list of names for a match. If a match 
occurs, it is checked for being previously named (flagged). At the conclusion of 
the program, the complete list is shown and any names in the list not given by 
144 the user are starred (*****). 


Note the use of the one-dimensional array D(n), where n = 1-7, as a flag 
that prevents double credit for the same name being entered twice. The same 
flag is also used to “star” those names not entered when the test was taken (see 
statements 600—670 and 900-940). 

Although this program tests on naming dwarfs, the program itself may be 
used as a general test program. By just changing the DIM, DATA, and introductory 
PRINT statements accordingly, the program could test naming from any chosen 
list. 


RUN from disk and refer to the listing and run of PROGRAM 23. 


JLOAD PROGRAM 23 
JLIST 


10 REM PROGRAM 23 

20 REM — oe ee ee ee ee 

3O REM TESTING: THIS 

40 REM PROGRAM DEMOS SIMPLE TESTING EXERCISE 
90 REM IN NAMING. PROGRAM CHECKS ANY NAME INPUT 
60 REM FIRST FOR ACCURACY AND» IF OK» THEN TO 
70 REM SEE IF NAME HAS BEEN INPUT PREVIOUSLY. 
BO REM ANY NAME NOT ANSWERED IS LISTED AT THE 
90 REM CONCLUSION OF THE PROGRAM. BY CHANGING 
100 REM THE DIM» DATA» AND ALL "FOR-TO" 

110 REM STATEMENTS TO THE NUMBER OF NAMES IN 
120 REM THE LIST» THE PROGRAM MAY BE USED AS 
130 REM A MODEL FOR TESTING ANY LIST OF NAMES. 


140 REM ==—===s=s==—s sss 

150 REM VARIABLE DICTIONARY 

160 REM =S=essSss==s == 

170 REM OD( ) - FLAG FOR THE NUMBER OF THE NAME 
180 REM CORRECTLY ENTERED 


190 REM O#( ) - LIST OF NAMES 

200 REM F - FLAG FOR MISSING AT LEAST ONE NAME 
210 REM L - LENGTH OF THE LIST (NO. OF ELEMENTS) 
220 REM R - RANDOM NUMBER (4-1) 

230 REM RS(R) - POSITIVE FEEDBACK 

240 REM S - NUMBER CORRECT COUNTER (SCORE) 


250 REM BS2estz2222222222 

260 REM ===POSITIVE FEEDBACK CHOICES=== 

270 DATA "OQ. Ke"*"G REA T"+"S U PE R"+"V ER Y 
G OO D0" 

280 REM ===NO. OF ITEMS IN LIST=== 

290 DATA 7 

300 REM ===LIST OF ITEMS TO BE NAMED=== 


310 DATA "BASHFUL" »"DOC" »"DOPEY" »"GRUMPY" 
320 DATA "HAPPY" »"SLEEPY" »"SNEEZY" 

330 REM ===STORE THE FEEDBACK=== 

340 FOR I = 1 7T0 4 
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350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
210 
920 
330 
240 
990 
560 
970 
»80 
990 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
790 
760 
770 
780 
790 
800 
810 
820 
830 
840 


READ R$(1) 

NEXT I 

REM ===STORE HOW LONG THE LIST IS===: 
READ L 

REM ===STORE THE LIST OF NAMES=== 

FOR I = 1T0L 

READ D$(I) 
D(I) = 0 

NEXT I 

REM ===BEGIN THE TEST=== 

HOME 

PRINT "SNOW WHITE AND THE 7 DWARFS" 

PRINT 

PRINT "LET’S SEE IF YOU CAN NAME THEM..." 
FOR I = 1 TO 2000: NEXT I 

HOME 

FOR T = 1 TOL 

FOR I = 1 TO 11: PRINT =: NEXT I 

PRINT "NAME NUMBER "5T35 

INPUT R$ 

REM i.e ee a ee 

REM GO THRU THE LIST TO CHECK FOR A MATCH 
REM SSSS SSS SSS 55 55 

FOR K = 1 TOL 

IF R$ < > DS(K) THEN 750 

REM Seeesse=ss222=2= 

REM NAME INPUT MATCHES ONE IN THE LIST» BUT 
REM HAS IT BEEN PREVIOUSLY ENTERED? IF NOT» 
REM SET THE D(K) = 1» INCREASE THE SCORE 
REM BY 1» AND GIVE A POSITIVE RESPONSE 
REM S2s]sS2sS=22=525 

IF D(K) = 1 THEN 730 
D(K) = 1 

= § + 1 


HOME : FOR I = 1 TO 11: PRINT =: NEXT I 
= INT (4 * RND (1) + 1): PRINT TAB(C S)SRS$(R)5"!" 
FOR I = 1 TO 1000: NEXT I: HOME 
GOTO 810 
PRINT "YOU HAVE GIVEN THAT NAME BEFORE!" 
GOTO 710 
NEXT K 
REM sesseaseassees= 
REM IF WE GOT THIS FAR» INPUT NAME DID 
REM NOT MATCH ANY NAME IN THE LIST 
REM Ses se22s2]52225= 
PRINT "HMMM...-THAT’S NOT ONE..-":GOTO 710 
NEXT T 
PRINT =: PRINT 
PRINT “DEPRESS ANY KEY FOR THE COMPLETE LIST"$ 
GET 2% 


Show and Tell 


850 HOME 

860 PRINT 

870 PRINT TAB( 8)5"THE COMPLETE LIST:" 

880 FOR I = 1 TOL 

890 PRINT TAB(C 12) 5D$(1)5 

900 REM ===THOSE CORRECTLY NAMED WERE "FLAGGED" (D(I) = 1) 


910 IF D(I) = 1 THEN 940 
920 PRINT " 42488" 
930 F = 1: GOTO 950 


940 PRINT 

950 NEXT I 

960 PRINT 

970 IF F = 1 THEN 1010 

980 REM ===IF F IS ZERO» ALL WERE NAMED=== 


990 PRINT TAB( 6)3"### YOU KNEW THEM ALL! ###" 

1000 GOTO 1030 

1010 PRINT TAB( 6)5"(###e2 = NAME NOT LISTED!)": PRINT 

1020 REM ===SHOW THE SCORE TO ONE DECIMAL PLACE=== 

1030 PRINT "THAT’S "s INT (S # 100 / L * 10) / 105" 
PERCENT CORRECT!" 


1040 PRINT 

1050 PRINT "BYE-BYE FOR NOW...AND WATCH" 
1060 PRINT " OUT FOR THOSE APPLES!" 
1070 END 

JRUN 


[Clear screen] 
SNOW WHITE AND THE 7 DWARFS 
LET’S SEE IF YOU CAN NAME THEM... 
[Clear screen] 
NAME NUMBER 1?SNEEZY 
[Clear screen] 
GREAT! 
[Clear screen] 
NAME NUMBER 2°?7D0C 
[Clear screen] 
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(Clear screen] 
NAME NUMBER 3?GRUMPY 
[Clear screen] 
VER Y GOO D! 
[Clear screen] 


NAME NUMBER 4?DUMBO 
HMMM...» THAT’S NOT ONE... 


[Clear screen] 
NAME NUMBER S?DOPEY 
[Clear screen] 
O. K.! 
[Clear screen] 


NAME NUMBER 6?GRUMPY 
YOU HAVE GIVEN THAT NAME BEFORE! 


[Clear screen] 
NAME NUMBER 7?7SLEEPY 
[Clear screen] 
O. K.! 
[Clear screen] 
DEPRESS ANY KEY FOR THE COMPLETE LIST 
{Clear screen] 
THE COMPLETE LIST: 
BASHFUL *#*#*x* 
DOC 
DOPEY 
GRUMPY 
HAPPY *#*## 
SLEEPY 
SNEEZY 


(####% = NAME NOT LISTED!) 


THAT’S 71.4 PERCENT CORRECT! 


BYE-BYE FOR NOW...-AND WATCH 
OUT FOR THOSE APPLES! 


6.7.2 PROGRAM 24: Multiple-Choice Questions 


PROGRAM 24 is one example of generating multiple-choice questions. Fol- 
lowing any introductory statements, PRINT statements that ask questions and 
DATA statements that provide the choices and their appropriate responses may 
be added to the program. The correct choice by number is assigned to variable 
A, and then a GOSUB transfers to a subroutine that displays the choices and 
evaluates the user’s input. This sequence of PRINT (the question), DATA (for 
each choice and its response), A = (number of the correct choice), and GOSUB 
5000 may be repeated for an indefinite number of multiple-choice questions in 
the program. 

(This program arbitrarily presents only 4 choices. What would be needed to 
change the program so that 5 choices would be displayed?) 


RUN from disk and refer to the listing and run of PROGRAM 24. 


JLOAD PROGRAM 24 
JLIST 


10 REM PROGRAM 24 

20 REM SaSseeseasesse ses 

30 REM TESTING: THIS 

40 REM PROGRAM DEMOS MULTIPLE-CHOICE TESTING 

90 REM USING DATA-READ TECHNIQUES. QUESTIONS 

60 REM ARE ASKED IN SEQUENCE (I.E.» NO RANDOMIZATION), 
70 REM ALL QUESTIONS "SETS" ARE ENTERED IN THE 

80 REM PROGRAM FOLLOWING THE SEQUENCE: 


90 REM 1. PRINT STATEMENTS TO ASK THE QUESTION 
100 REM 2. DATA STATEMENTS FOR 4 CHOICES AND 
110 REM THE RESPONSE FOR EACH CHOICE 

120 REM 3+ SETTING VARIABLE "A" TO THE 

130 REM NUMBER OF THE CORRECT CHOICE 

140 REM 4. GOSUB 5000 


150 REM QUESTION "SETS" ON ANY TOPIC MAY BE 
160 REM USED IN THE PROGRAM IF THIS SEQUENCE 
170 REM IS FOLLOWED. 


180 REM == 565s =s-55=>—= 

190 REM VARIABLE DICTIONARY 

200 REM SSssseessessaso=s 

210 REM A ~- CORRECT CHOICE ANSWER (1-4) 

220 REM AS$( ) - A GIVEN CHOICE (READ FROM DATA) 


230 REM C - NUMBER CORRECT COUNTER 
240 REM R - USER’S ANSWER (VIA INPUT) 


Show and Tell 
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290 
260 
270 
280 
290 
300 
310 
320 
330 
340 
500 
910 
920 
030 
040 
0900 
960 
970 
080 
990 
600 
610 
620 
630 
640 
650 
660 
670 
680 
6390 
700 
710 
720 
730 
740 


790 
760 


770 


780 
790 
B00 
810 
820 
830 
840 


850 


A 


A 


REM R#( ) - A GIVEN RESPONSE (READ FROM DATA) 
REM Saeasessee ose cse ; 
DIM A$(4) »+R$(4) 
HOME :C = OQ 
REM —'—7— oo eae 
REM ADD INTRODUCTORY STATEMENTS» EXAMPLES» 
REM OR WHATEVER HERE (UP TO LINE 500) 
REM SSeseseeesecaas ss 
REM 
REM 
REM sess ecsseosssees 
REM PRINT THE QUESTION 
REM Ssssssese=sess 
PRINT "THE STATE FLOWER OF TEXAS IS THE:" 
REM SSsssaseeosses 
REM ADD 4 DATA ELEMENT PAIRS FOR EACH 
REM CHOICE AND THE RESPONSE FOR THAT CHOICE 
REM oe ee 
DATA "BLUE-BONNET" +"BEAUTIFUL» AREN’T THEY" 
DATA "ROSE"»"IT’S BY ANOTHER NAME HERE" 
DATA "“DANDELION" »"BLOW IT OFF" 
DATA "MORNING GLORY" >"IT AIN‘’T+ BUT IT COULD BE" 
REM SSsSesesessse2 =e 
REM SET VARIABLE "A" TO THE CORRECT CHOICE NUMBER 
REM 2. se ee ee ee 
= 1 
REM Sess seeeeeeesees 
REM THEN GOSUB S000 TO PRINT THE CHOICES» 
REM GET THE ANSWER» AND THEN RESPOND TO IT. 
REM Seeesssaseseeee 
GOSUB 5000 
REM ===NEXT QUESTION SEQUENCE, ETC.=== 
PRINT "AN EXAMPLE OF A COMPUTER OUTPUT" 
PRINT "DEVICE IS:" 
DATA "PRINTER" s"YES» BUT THERE WAS ANOTHER IN THE 
LIST" 
DATA "KEYBOARD" »"THAT’S AN INPUT DEVICE!" 
DATA "TERMINAL SCREEN" »+"YES» BUT THERE IS A BETTER 
CHOICE" 
DATA "1. AND 3. ABOVE" ,»"0.K..+eTHEY ARE 2 COMMON 
EXAMPLES" 
= q 
GOSUB 5000 
REM ===NEXT QUESTION SEQUENCE, ETC,.=== 
PRINT “WHICH PLANET IS EARTH" 
PRINT "FROM THE SUN?" 
DATA "FIRST" +"THAT’S MERCURY" 
DATA "SECOND" >"‘TIS VENUS» ABOUT DE MILO FROM THE 
SUN!" 
DATA "THIRD" »"RIGHT..-YOU’RE A TERROR FARMER" 


Show and Tell 


860 DATA "FOURTH" s"MAR-CY» THAT’S MARS" 


870 A= 3 
880 GOSUB 5000 
8950 REM Sesseeeteeszeee2e2= 


900 REM ROOM TO ADD MANY MORE QUESTION "SETS" 
910 REM FOLLOWING THE SEQUENCE OF: 
920 REM PRINT» DATA+ A = » GOSUB 


930 REM Pee eeerererees ey 
4800 REM 

4810 REM 

4820 REM ee 


4830 REM IT’S OK TO HAVE THE ‘END’ STATEMENT 
4840 REM ** NOT ** AS THE LAST STATEMENT! 


4850 REM eaesescscsreserseses2s22“2 

4860 PRINT : PRINT "YOU ANSWERED "Cs" CORRECTLY!" 
4870 END 

4880 REM SSSseSS-sSs552555 


4890 REM SUBROUTINE TO DISPLAY THE CHOICES, STORE 
4900 REM THE RESPONSE FOR EACH CHOICE, AND 
4910 REM GET THE INPUT FOR CHECKING 


4920 REM S2S222222222222=2 
2000 PRINT 
9010 REM SsSS55353 555525525 . 


9020 REM READ THE DATA FOR THE CHOICE AND 
9030 REM ITS RESPONSES PRINT THE CHOICE 
5040 REM — | 2 ee 

9050 FOR I = 1 7T0 4 

9060 READ AS(T) »R$(T) 

9070 PRINT I5". "“sAS(T) 


9080 PRINT 
2090 NEXT I 
9100 PRINT 


0110 PRINT “YOUR CHOICE (1-4)"3 

~120 INPUT R 

9130 REM ===CHECK FOR WITHIN RANGE=== 
Y140 IF R < 1 THEN 5110 

9150 IF R > 4 THEN 5110 

9160 PRINT 


9170 REM ===PRINT THE RESPONSE FOR USER’S CHOICE=== 
9180 PRINT R#(R)5"!" 
~190 REM ==IS IT THE CORRECT CHOICE?=== 


9200 IF A R THEN 5300 

5710 REM =s3552 25255225 

9220 REM IF THE USER’S CHOICE IS NOT CORRECT» 

9230 REM PRINT THE CORRECT CHOICE NUMBER 

9240 REM AND THE CHOICE LISTED 

52750 REM Seeeeeeeeeesese 

9260 PRINT 

9270 PRINT "A CORRECT CHOICE IS "SAs".3s "SAS(A) 

9280 GOTO 5320 15] 
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9290 REM ===INCREASE A NUMBER-CORRECT COUNTER=== 
9300 C = C + 1 
9310 REM ===LET THE USER SAY WHEN TO GO ON=== 


9320 PRINT 

9330 PRINT "DEPRESS ANY KEY TO CONTINUE..." 
5340 GET 2% 

9350 HOME 

9360 REM ===RETURN FOR THE NEXT QUESTION=== 
¥370 RETURN 


JRUN PROGRAM 24 
[Clear screen] 


THE STATE FLOWER OF TEXAS IS THE: 
1. BLUE-BONNET 

2+ ROSE 

3.» DANDELION 

4. MORNING GLORY 

YOUR CHOICE (1-4)?2 

IT’S BY ANOTHER NAME HERE! 

A CORRECT CHOICE IS 1.: BLUE-BONNET 


DEPRESS ANY KEY TO CONTINUE... 
[Clear screen] 


AN EXAMPLE OF A COMPUTER QUTPUT 
DEVICE IS: 


1. PRINTER 
2. KEYBOARD 


3. TERMINAL SCREEN 

4. 1. AND 3. ABOVE 

YOUR CHOICE (1-4)?2 

THAT’S AN INPUT DEVICE!! 

A CORRECT CHOICE IS 4.: 1. AND 3. ABOVE 


DEPRESS ANY KEY TO CONTINUE... 


Show and Tell 


[Clear screen] 


WHICH PLANET IS EARTH 
FROM THE SUN? 


1. FIRST 
2. SECOND 
3+ THIRD 


4, FOURTH 


YOUR CHOICE (1-4)?2 
‘TIS VENUS» ABOUT DE MILO FROM THE SUN! 
A CORRECT CHOICE IS 3.: THIRD 


DEPRESS ANY KEY TO CONTINUE... 


[Clear screen] 


YOU ANSWERED O CORRECTLY! 


6.8 THE KEYWORD SUBROUTINE 


Up to this point, a variety of instructional computing program examples and 
models have been presented. These programs illustrate some of the major con- 
cepts, strategies, and techniques that may be used in program design. However, 
one additional technique that merits discussion is keyword matching. 

This technique allows a program author to define a “keyword” sequence of 
characters that, if found anywhere in the user’s response in the same sequence, 
will constitute a match between the input and an anticipated answer. For exam- 
ple, assume that an author wanted to ask the following question: 


YOU HAVE REMOVED YOUR DIRTY SOCKS. 
WHAT SHOULD YOU DO WITH THEM NOW? 


Further assume that the author anticipates the following responses as possible 
answers to the question: 


WASH AND DRY THEM 

WASH THEM 

THROW THEM AWAY 

GIVE THEM AWAY 153 
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With the use of a keyword subroutine, the author can define a match of 
these anticipated answers as: 


"WASH#DRY" 
"WASH" 
"THROW" 
"GIVE" 


Thus, if the user responds with any phrase containing the word GIVE, for 
example, then a match will have been found. The author can then have the 
program make appropriate responses and transfer execution back to the original 
question or give the complete answer. If none of the anticipated answers are 
matched, a response (such as a hint) can be made and execution transferred 
accordingly. 

The program fragment, KEYWORD, found on the text diskette is one exam- 
ple of a subroutine of this nature. Although many of the program statements are 
beyond the scope of this text, it is very easy to use the subroutine. However, 
since KEYWORD is already written, there are certain conventions that must be 
followed for its successful use: 


I. The user’s response must be in R§ (i.e., INPUT R$). 


2. The defined anticipated answers (keywords to search for in the user’s 
response) must be assigned to A§. 


3. A$ may have as many as three keywords, delimited (separated) by an 
asterisk. 


4. Ifa match occurs between the anticipated answer and the user’s response, 
A$ is set to ‘0’ (string zero). If no match is found, A$ is set to ‘1’ 
(string one). Appropriate branching in the program is then based upon 
the value of A$. 


5. The subroutine begins with statement number 5000. 


6. The END statement is number 10000. 


Refer to the creation and run of the program socks. 


JLOAD KEYWORD 


J1 REM ===PROGRAM NAME: SOCKS=== 
J2 REM ===DEMOS KEYWORD SUBROUTINE=== 
J3 REM ===VARIABLE F IS A COUNTER FOR=== 


J4 REM ===REPEATING THE QUESTION NO=== 


JS REM ===MORE THAN 4 TIMES=== 


KEYWORD is loaded from diskette [i.e., 
KEYWORD subroutine (statements in 
range 5000 through 10000) is loaded 
into system’s memory]. 


1—5 added to document program. 


= 0 
F=F+i 
IF F > 4 THEN 230 
PRINT 
PRINT "YOU HAVE REMOVED YOUR DIRTY" 
PRINT “SOCKS. WHAT SHOULD YOU DO" 
PRINT "WITH THEM NOW" $ 
INPUT R& 
AS = "WASH*DRY":GOSUB 5000 
IF AS = "1" THEN 110 
PRINT "GOOD! YOU MIGHT USE A BIT" 
PRINT "OF FOOT POWDER; TOO!":GOTO 10000 
A$ = "WASH":GOSUB 5000 
IF AS = "1" THEN 140 
PRINT "DO YOU WEAR WET SOCKS?":GOTO 10 
A$ = "THROW":GOSUB 5000 
IF AS = "1" THEN 180 
PRINT "DON’T TOSS THEM YET...TRY" 
PRINT "SOME SOAP AND WATER.":GOTO 10 
A$ = "GIVE":GOSUB 5000 
IF AS = "1" THEN 210 
PRINT "NO ONE WOULD TAKE THEM! !!":GOTO 10 
PRINT "(NO MATCH YET...)" 
PRINT "THINK OF SOAP AND SUNSHINE! ":GOTO 10 
PRINT: PRINT 
PRINT "THOSE DIRTY SOCKS SHOULD BE" 


Show and Tell 


20 limits number of times question 
asked to 4. 


30—60 added to ask the question. 


70 assigns user's response to R$. 


80 assigns first anticipated answer (in 
this case, correct response) to A$. Two 
keywords needed, WASH and DRY, 
delimited by an asterisk. Transfer to 
subroutine at 5000. 


Upon retum from subroutine, 90 checks 
value of A$. If user’s response contained 
at least keyword WASH followed 
somewhere by keyword DRY, a match 
occurred and A$ was set to “0” by 
subroutine. If no match, A$ was set 

to “1”. 


100—105 executed if A$ = ‘0’ (i.e., 
match found). Transfer is then to 10000, 
the END of program. 


110 executed if no match for first 
keyword (A$ = ‘’1’’). A$ redefined as 
next keyword to check for in user’s 
response. Transfer back to subroutine. 
This sequence—define keyword, go to 
subroutine, check A$ upon return, and 
branching or responding accordingly—is 
repeated through 200. 


210—220 executed if no defined 
keywords matched. Transfer then made 
back to 10 to either ask question again 
or give correct answer, based upon 
value of F. 
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1250 PRINT “WASHED AND DRIED!!!!":GOTO 10000 
JRUN 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?THROW THEM IN THE LAUNDRY 
DON’T TOSS THEM YET...TRY 

SOME SOAP AND WATER. 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?WELL..»»WASH THEM I GUESS 
DO YOU WEAR WET SOCKS? 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?0K..GIVE THEM TO ANYBODY 
NO ONE WOULD TAKE THEM!!! 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?LET MOM WORRY ABOUT THEM 
(NO MATCH YET...) 

THINK OF SOAP AND SUNSHINE! 


THOSE DIRTY SOCKS SHOULD BE 
WASHED AND DRIED!!!! 


JRUN 


YOU HAVE REMOVED YOUR DIRTY 
SOCKS. WHAT SHOULD YOU DO 
WITH THEM NOW?HAND THEM TO MOM 
(NO MATCH YET...) 

THINK OF SOAP AND SUNSHINE! 


YOU HAVE REMOVED YOUR DIRTY 

SOCKS. WHAT SHOULD YOU DO 

WITH THEM NOW?0H...1’D BETTER WASH AND DRY 
THEM!!! 

GOOD! YOU MIGHT USE A BIT 

OF FOOT POWDER, TOO! 


JSAVE SOCKS 


Following this same sequential strategy, a variety of both anticipated correct 
and incorrect answers may be used in a program. Program KEYWORD DEMO 
on the text diskette is another example of using the keyword subroutine. A 
156 sample run is shown, followed by a listing of the subroutine. 


Refer to the run of the program keyword demo. 


JRUN KEYWORD DEMO 
A DEMO OF THE KEYWORD SUBROUTINE 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY ?UNITED 
UNITED WHAT OF WHAT??? 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY?UNITED STATES 
UNITED STATES OF WHAT??? 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY ?AMERICA 
YES» BUT WHAT OF AMERICA??? 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY?U S A 
USA» YES...BUT SPELL IT OUT PLEASE! 


WHAT DO WE CALL OUR FIFTY STATES 
COLLECTIVELY?THE HOME OF THE FREE 


THE ANSWER I WANTED WAS THE 
UNITED STATES OF AMERICA! 


JRUN 
A DEMO OF THE KEYWORD SUBROUTINE. 


WHAT DO WE CALL OUR FIFTY STATES 


COLLECTIVELY?NEVER THE UNITED STATES!!! 


YOU ARE TRYING TO BE TRICKY! 


WHAT DO WE CALL QUR FIFTY STATES 


COLLECTIVELY?MUST BE THE UNITED STATES OF AMERICA 


THAT’S IT..s-VERY GOOD! 


JLOAD KEYWORD 
JLIST 


S000 REM SSS=S=SSeesseeeseaeoees 
9002 REM PROGRAM NAME: KEYWORD 
5004 REM SosssssrsseseesesesE 
9006 REM THIS SUBROUTINE READS A 
9008 REM USER’S RESPONSE (MUST BE 


9010 REM FROM: INPUT R$) AND CHECKS 
9012 REM FOR A "KEYWORD" CHARACTER 
9014 REM SEQUENCE MATCH AS DEFINED 
9016 REM IN AS. IF A MATCH OCCURS. 


Show and Tell 
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“018 REM A$ IS SET TO "0O"$ OTHERWISE,» "1", 
9020 REM NOTE: AS MAY CONTAIN UP TO 3 

9030 REM KEYWORDS DELIMITED BY *. 

5040 REM SS e622 222225 = 22] 25 52=e 

2042 REM THE SUBROUTINE MAY BE USED WITH ANY 
9044 REM PROGRAM BY FIRST LOADING THE 

9046 REM "KEYWORD" PROGRAM: AND THEN ADDING 
“048 REM STATEMENTS IN THE SEQUENCE: 

Y050 REM PRINT(S) (FOR THE QUESTION) 

9052 REM INPUT R&S (FOR THE RESPONSE) 

9054 REM A$ = "DEFINED*#KEYWORD#ANSWER" 

9056 REM GOSUB 5000 

9058 REM IF AS = "1" THEN (TO NEXT KEYWORD) 
9060 REM PRINT(S) (TO REPLY TO MATCH JUST MADE) 
9062 REM GOTO (REPEAT OF THE QUESTION» 

9064 REM OR GIVE THE ANSWER) 

9066 REM A$ = "NEXT#KEYWORD" 

9068 REM GOSUB 5000 ETC.» ETC. 

5070 REM SSSseeeeseeoae=sos=s ses 

©0800 REM THE FOLLOWING DIM 

9090 REM STATEMENT MUST BE 

2100 REM DECLARED IN THE MAIN 


2110 REM PROGRAM: DIM W$(3) 
5120 REM S-SsSSSsSeesoss==s 225 
9130 REM INPUT AS (AS DEFINED) 
5140 REM SSS=S26 222-5 s=s2=s===5 
9150 REM OUTPUT - AS = O CORRECT 
5160 REM AS = 1 INCORRECT 
5170 REM SSsSseceeasza2zss22=2=2=2-=5 
9180 REM VARIABLE DICTIONARY 

5190 REM S252 52552255] =s5sssSs 


9200 REM AS - KEYWORD(S) ANTICIPATED 
3210 REM LA - LENGTH OF ANSWER 

9220 REM LR - LENGTH OF RESPONSE 
9230 REM LW - LENGTH OF KEYWORD 

9240 REM NW - NO. OF KEYWORDS 

9290 REM Pi1»sP2 - STRING POINTERS 
9260 REM R$ - USER’S RESPONSE 

9270 REM W$(3) - ARRAY FOR KEYWORDS 
5780 REM Sansesststazsssss22222222 

9300 LA = LEN (A$) 

9310 LR = LEN (R$) 

9320 IF LR < LA GOTO 5620 

9330 FOR I = 1 T0 3 

9340 FOR J = 1 TO LA 

9390 Pl = J 

9360 IF MIDS (AS$+Je1) = "*#" GOTO S400 
9370 NEXT J 

9380 P2 = Pl 

9390 GOTO 5410 


2400 P2 = P1 - 1 

9410 WS$(1I) = MIDS (AS$+1 »P2) 

9420 IF P1 < > LA GOTO 5450 

%430 NW = I 

9440 GOTO 5500 

9450 AS = MIDS (AS»P1 + 1sLA - Pi) 
2460 LA = LEN (A$) 

2470 NEXT I 

5480 PRINT "ERROR - AS CONTAINS MORE THAN 3 WORDS" 
2490 END 

9900 Pl = 1 

9910 FOR I = 1 TO NW 

9920 LW = LEN (W$(I)) 

9930 FOR J = P1 TO LR - LW + 1 
9940 P2 = J 

55590 IF MIDS (R$sJsLW) = WS$(I) GOTO 5580 
9960 NEXT J 

9970 GOTO 5620 

9980 Pl = P2 + LW + 1 

9990 NEXT I 

9600 AS = "0" 

2610 RETURN 


9620 AS = "1" 
9630 RETURN 
10000 END 


6.9 USING BASIC COMMANDS WITHIN A PROGRAM 


By now, you are well aware of many of the BASIC commands (CATALOG, 
LOAD, RUN, LIST, etc.) of the Apple. There is a method by which commands 
may be incorporated as statements within the body of a BASIC program. When 
one of these statements is executed it could, for example, display the catalog of 
files on the disk or execute (RUN) a given program. The second example is 
particularly useful in that one program can ‘‘command” another program to 
RUN, which could command another program to RUN, and so on. Thus, pro- 
grams can be “‘linked”’ together in sort of a ‘‘chain’’ fashion. 

A common use in instructional computing is to design one program as a 
“menu” of available programs on the disk. When this menu program is executed, 
a selection of programs is displayed, and the user may enter the choice desired. 
Based upon the user’s input, execution is transferred to the appropriate line 
number in the menu program that commands the system to RUN the selected 
program. 

Without going into detail, we shall simply state here that a variable needs 
to be defined as a “‘control-D’’ character. One way to accomplish this is by the 
use of the statement CHR$(4) (see Appendix B). Thus, the statement 


D$ = CHRS$(4) 


Show and Tell 
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JLOAD MENU 
JLIST 

10 REM 

20 REM 

30 REM 

40 REM 

90 REM 

60 REM 

70 =REM 

BO REM 

85 REM 

390 HOME 
100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 REM 
160 REM 
170 REM 
180 D$ = 
190 PRINT 
200 PRINT 
210 PRINT 
220 PRINT 
230 PRINT 
240 PRINT 
290 PRINT 
260 GET Z 
270 IF 2 
280 PRINT 
290 REM 
300 REM 
310 REM 
320 REM 


assigns a value of ‘‘control-D” to the variable D$ (any legal string variable name 
could be used). Executing the “control-D’’ as a PRINT statement that includes 
the appropriate command enclosed in quotes allows the command to literally be 
a statement in the program. For example, when the statement 


PRINT D%s"RUN NEXT" 


is executed [and D$ has an assigned value of CHR$(4)], the system will auto- 
matically LOAD and RUN the program named NEXT. 

This use of commands as BASIC statements is illustrated in program MENU 
on the disk. Carefully examine the listings of MENU, CHAIN 1, and CHAIN 2; 
then, RUN MENU and note the options and actions it provides. 


PROGRAM ‘MENU’ 


THIS PROGRAM DEMONSTRATES THE USE OF 
INCORPORATING BASIC COMMANDS INTO THE 
BODY OF A PROGRAM BY DEFINING A 
STRING VARIABLE (E.G.» DS) = CHRS$(Q4), 
TWO PROGRAMS» CHAIN 1 AND CHAIN 2 ARE 
USED FOR DEMONSTRATION PURPOSES. 


FOR I = 1 TO Ss: PRINT : NEXT I 

" MEN U": PRINT 

"THIS PROGRAM DEMONSTRATES HOW A ‘MENU‘" 
"OF PROGRAMS MAY BE PRESENTED FOR" 
"SELECTION AND THEN AUTOMATICALLY" 
"EXECUTED (RUN) BY THE SYSTEM." 


DEFINE A VARIABLE AS A ‘CONTROL-D’ (CHR$(4)) 


CHR (4) 
PRINT 
. YOUR OPTIONS:" 


. 1. PROGRAM CHAIN 1" 
2+ PROGRAM CHAIN 2" 
‘ 3. STOP 

? YOUR CHOICE (1-3)?" 


> = 1 AND Z¢ = 3 THEN 330 
"*### OUT OF RANGE ###": GOTO 250 


CLEAR THE SCREEN,» CENTER+ AND 
TELL WHAT’S HAPPENING... 


330 HOME : FOR I = 1 TO 11: PRINT : NEAT I 
340 ON 2 GOTO 35013703390 

350 PRINT "GOING TO PROGRAM ‘CHAIN 1/’..." 
360 PRINT D$5"RUN CHAIN 1" 

370 PRINT "GOING TO PROGRAM ‘CHAIN 2/’..." 
380 PRINT D$5"RUN CHAIN 2" 

390 PRINT "STOPPING THIS INTERACTION AND" 
400 PRINT "GETTING THE DISK ‘CATALOG’..." 
410 FOR I = 1 TO 3000: NEXT I 

420 PRINT D#s"CATALOG" 

430 END 


JLOAD CHAIN 1 


JLIST 
10 REM PROGRAM ‘CHAIN 1’ 
20 REM Sessssssssres2ez2=2=“=2 


30 HOME : FOR I = 1 TO 8: PRINT =: NEXT I 
40 PRINT "AND HERE WE ARE EXECUTING" 

90 PRINT "PROGRAM ‘CHAIN 17%..." 

60 PRINT 

70 PRINT “IF YOU DEPRESS THE LETTER ‘N’" 
BO PRINT "(FOR ‘NEXT’)» WE’LL GO TO THE" 


90 PRINT "PROGRAM ‘CHAIN 2’. ANY OTHER KEY" 
100 PRINT "WILL TAKE YOU BACK TO THE ‘MENU’..." 


110 D$ = CHRS (4) 
120 GET 2% 
130 HOME : FOR I = 1 TO ils PRINT : NEXT I 


140 PRINT "YOU DEPRESSED THE LETTER ‘"s2%5"’'..." 


150 PRINT : PRINT " 50..." 
160 IF 2% = "N" THEN 180 

170 PRINT D$s"RUN MENU" 

180 PRINT D#s"RUN CHAIN 2" 

190 END 


JLOAD CHAIN 2 


JLIST 
10 REM PROGRAM ‘CHAIN 2’ 
20 REM Sssesse22222e222222=2 


30 HOME : FOR I = 1 TO 10: PRINT : NEXT I 
40 PRINT "WELL» WE MADE IT TO PROGRAM" 

90 PRINT "’CHAIN 2’...S0O YOU SEE IT’S" 

60 PRINT "SIMPLE TO HAVE THE SYSTEM" 

70 PRINT "FOLLOW YOUR COMMANDS *#IN##" 


BO PRINT "A PROGRAM (IF YOU KNOW THE RULES...)" 


90 PRINT 
100 PRINT "NOW DEPRESS ANY KEY» AND WE’LL" 


110 PRINT "GO BACK TO THE ’MENU’ PROGRAM..." 


120 GET 2$ 


Show and Tell 
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130 HOME : FOR I = 1 TO 11: PRINT =: NEXT I 
140 PRINT "HERE WE GO BACK TO THE MENU..." 
150 D$ = CHR$ (4) 

160 PRINT D$5"RUN MENU" 

170 END 


JRUN MENU 
[Clear screen] 
M E N U 


THIS PROGRAM DEMONSTRATES HOW A ‘MENU’ 
OF PROGRAMS MAY BE PRESENTED FOR 
SELECTION AND THEN AUTOMATICALLY 
EXECUTED (RUN) BY THE SYSTEM, 


YOUR OPTIONS: 


1. PROGRAM CHAIN 1 
2. PROGRAM CHAIN 2 
3. STOP 

YOUR CHOICE (1-3)? 1 


[Clear screen] 
GOING TO PROGRAM ‘CHAIN 17%... 
[Clear screen] 


AND HERE WE ARE EXECUTING 
PROGRAM ‘CHAIN 1’... 


IF YOU DEPRESS THE LETTER ‘N’ 

(FOR ‘’NEXT’), WE’LL GO TO THE 
PROGRAM ‘CHAIN 2’. ANY OTHER KEY 
WILL TAKE YOU BACK TO THE ‘MENU’... 


[Clear screen] 

YOU DEPRESSED THE LETTER ‘N’.ee- 
SOs 

[Clear screen] 

WELL» WE MADE IT TO PROGRAM 

‘CHAIN 2’...S0 YOU SEE IT’S 

SIMPLE TO HAVE THE SYSTEM 


FOLLOW YOUR COMMANDS *##IN#* 
A PROGRAM (IF YOU KNOW THE RULES...) 


Show and Tell 


NOW DEPRESS ANY KEY» AND WE’LL 
GO BACK TO THE ‘MENU’ PROGRAM... 


[Clear screen] 
HERE WE GO BACK TO THE MENU... 
[Clear screen] 

M E N U 


THIS PROGRAM DEMONSTRATES HOW A ‘MENU’ 
OF PROGRAMS MAY BE PRESENTED FOR 
SELECTION AND THEN AUTOMATICALLY 
EXECUTED (RUN) BY THE SYSTEM. 


YOUR OPTIONS: 


1. PROGRAM CHAIN 1 
2» PROGRAM CHAIN 2 
3. STOP 

YOUR CHOICE (1-3)? 3 


[Clear screen] 


STOPPING THIS INTERACTION AND 
GETTING THE DISK ‘CATALOG’... 


DISK VOLUME 254 


#A 002 HELLO 
*#B 034 TITLE 
*B 034 CREDITS 
#A 002 PROGRAM 
#A 003 PROGRAM 
#A O06 PROGRAM 
*#A O08 PROGRAM 
#A 008 PROGRAM 
#A 003 PROGRAM 
#A 009 PROGRAM 
#A O11 PROGRAM 
#A 005 PROGRAM 
*A 008 PROGRAM 10 

#A 018 PROGRAM 11 

*A O21 PROGRAM 12 

#A 007 PROGRAM 13 

*A O22 PROGRAM 14 

#A 003 PROGRAM 15 

*#A 013 PROGRAM 16 

*A O22 PROGRAM 17 

*A 016 PROGRAM 18 163 


moana uwadWhN = 


An Introduction to the BASIC Programming Language 


*A 
*A 
*A 
*A 
*A 
#*A 
#A 
*A 
*A 

T 
*A 
*A 
*A 
*A 
*A 
*A 
*A 
*A 
*A 
*A 
#A 
#A 
#A 
*A 
*A 
#A 
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O11 
O21 
014 
009 
012 
O16 
006 
O11 
006 
002 
008 
004 
006 
007 
004 
004 
004 
009 
016 
012 
O06 
003 
003 
004 
004 
021 


PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 


19 
20 
21 
22 
23 
24 
20 
26 


RECORD INITIALIZER 


TESTS 
A354 
A422 
A458 
AGB2Z 
A784 
A785 
A786 
KEYWORD 


KEYWORD DEMO 


SOCKS 
MENU 
CHAIN 1 
CHAIN 2 
START 
WARNING 
ISLAND 


Question: How could the menu of available programs on a disk be auto- 


matically displayed when the disk is loaded and the system booted up? (One 
solution is shown on the text disk in statement 90 of the HELLO program and 
by the program START.) 


6.10 POSERS AND PROBLEMS 


Identify an area in your particular field of interest in which an instruc- 
tional computing program could be written for each of the five appli- 
cations described above. Briefly outline each program by describing the 
area, content, and application in a short paragraph. 
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“What ts the use of a book,” thought Alice, “without 
pictures or conversations?” 
—Lewis Carroll 


roy Wy CR 
LES Py) i iS 


Think About This ( for Fun) 


A single English word can be formed from these letters. What is it? Use all the 
letters: PNLLEEEESSSSS. 


Think About This (Seriously) 


Is is possible that graphics do not always enhance instructional computing 
materials? 


Chapter 


One Picture Is Worth 
Ten Thousand Words 


7.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
I. Explain and give an example of how to specify a point on a graphics 


screen (Section 7.2). 


2. Define the purpose and give at least one example of each of the low- 
resolution graphics statements GR, COLOR, PLOT, HLIN, VLIN, and TEXT 
(Section 7.3). 


3. Define the purpose and give at least one example of each of the high- 
resolution graphics statements HGR, HCOLOR, and HPLOT (Section 7.4). 167 
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4. Design, enter, and RUN a BASIC program of your own choosing using 
low-resolution graphics. 


5. Design, enter and RUN a BASIC program of your own choosing using 
high-resolution graphics. 


7.2 WHAT ARE GRAPHICS? 


Throughout history, progress has been the result of people's ability to understand 
complex concepts. Visual tools such as drawings, photographs, films, and video 
tapes provide the medium for making complex concepts understandable to the 
masses. With the development of the computer and its ability to analyze vast 
amounts of data rapidly, its use as a tool for portraying visual information (graph- 
ics) naturally evolved. 

A computer graphic is somewhat like a printed map. Both are two-dimen- 
sional surfaces with a vertical direction and a horizontal direction. Just as any 
point on a map may be identified by its horizontal and vertical coordinates 
(latitude and longitude), any point on a computer's graphics screen can be spec- 
ified by measuring its vertical and horizontal distances from the upper left corner. 

The horizontal distance scale is called the x-axis and the vertical distance 
scale is called the y-axis. Figure 7.1 shows the Apple low-resolution graphics 
screen with the x-axis across the top of the screen and the y-axis down the left 
side of the screen. When the position of a point is specified, the distance on the 
x-axis is specified first, followed by the distance on the y-axis (the x- and y- 
coordinates of the point). For example, 20,10 specifies the point 20 units to the 
right in the x-direction and 10 units down in the y-direction. Similarly, the 
corners of the Apple low-resolution graphics screen are specified by 0,0 (upper 
left), 39,0 (upper right), 39,39 (lower right), and 0,39 (lower left). 


7.3 STATEMENTS FOR LOW-RESOLUTION GRAPHICS 


7.3.1 Statement GR 


Purpose The GR statement is used to initialize the low-resolution graphics 
screen in a program. When it is executed, the computer monitor will change 
from text to low-resolution graphics, and the screen will be cleared to black. As 
pictured in Figure 7.1, the low-resolution screen contains 160 points (0 to 39 by 
0 to 39). In addition, four text lines are available at the bottom of the screen for 
instructions, questions, and comments. 


7.3.2 Statement COLOR 


Purpose The COLOR statement sets the color for subsequent graphics 
statements. Once the color has been set, all graphics drawn on the screen will be 
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of that color until another COLOR statement is executed. Sixteen colors are 
available. Each color is represented by a number from 0 to 15: 


COLOR = 0 (black) COLOR = 8 (brown) 
COLOR = 1 (magenta) COLOR = 9 (orange) 
COLOR = 2 (dark blue) COLOR = 10 (grey) 
COLOR = 3 (purple) COLOR = il (pink) 
COLOR = 4 (dark green) COLOR = 12 (green) 
COLOR = 5 (grey) COLOR 13 (yellow) 
COLOR = & (medium blue) COLOR = 14 (aqua) 
COLOR = 7 (light blue) COLOR = 15 (white) 


7.3.3 Statement PLOT 


Purpose The PLOT statement will place a rectangular ‘‘brick’’ on the 
screen at the x- and y-coordinates specified in the statement. The color of the 
brick will be the color specified by the most recently executed COLOR statement. 


Example: PLOT 20:10 


(A brick will be PLOTted at a point 20 units to the nght on the x-axis and 10 


units down on the y-axis. See Figure 7.1.) 169 
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Example: Enter the following program and RUN it: 


COLOR 


10 initializes low-resolution graphics 
screen. 


20 defines a loop to be executed 15 


1 TO 15 pines: 


30 resets COLOR to new value each 


X = INT(CRND(1)#40) time through loop. 
Y = INT(RND(1)#40) 


PLOT XY 
NEXT I 


END 


40 and 50 generate random values (0— 
39) for x- and y-coordinates. 


60 PLOTS brick on screen. 


70 and 80 continue loop and END 
program. 


What happened? If entered correctly, fifteen bricks of different colors were PLOT- 
ted on the screen. 


7.3.4 Statement HLIN 


Purpose The HLIN statement draws a horizontal line on the screen 
from a specified starting point on the x-axis, to a specified ending point on the 
x-axis. The line is located at a specified y-axis point. The color of the line will be 
the color indicated by the most recently executed COLOR statement. 


Example: HLIN 10:30 AT 20 


(A horizontal line will be drawn from the 10th to the 30th unit on the x-axis at 
the 20th unit down the y-axis. See Figure 7.1.) 


7.3.5 Statement VLIN 


Purpose The VLIN statement draws a vertical line on the screen from 
a specified starting point on the y-axis to a specified ending point on the y-axis. 
The line is located at a specified x-axis point. The color of the line will be the 
color indicated by the most recently executed COLOR statement. 


Example: VLIN 21,531 AT 5 


(A vertical line will be drawn from the 21st to the 31st unit on the y-axis at the 
5th unit to the right on the x-axis. See Figure 7.1.) 


7.3.6 Statement TEXT 


Purpose The TEXT statement returns the computer’s monitor to a full 
text screen (24 lines of 40 characters). If this statement is not included at the end 
of a program using graphics, the graphics screen will remain on the monitor. 


One Picture Is Worth Ten Thousand Words 


TEXT may also be typed as an individual command to return to the full text 


screen. 


7.3.7 PROGRAM 25: Random Colored Lines 


The five low-resolution graphics statements GR, COLOR, PLOT, HLIN, and 
VLIN provide the basis for adding diagrams, charts, and illustrations to instruc- 
tional computing materials. PROGRAM 25 demonstrates the use of these state- 


ments to generate unique art. The program is designed to: 


I. Clear the screen and color it light blue. 


2. Draw 100 vertical and 100 horizontal lines of varying lengths at random 


locations on the screen. 


3. Draw each line using a random color. 


Since PROGRAM 25 is dynamic, it must be RUN to be appreciated. The 
actions on the screen cannot be sufficiently illustrated by words or pictures in 


this text. 
Run from disk and refer to the listing of PROGRAM 25. 


JLOAD PROGRAM 25 


ILIST 

100 REM Saseecessesaeese2e 

110 REM PROGRAM 25 DESCRIPTION 

120 REM Sess sss=== 

130 REM DEMONSTRATION OF LOW-RESOLUTION 
GRAPHICS. 

140 REM THE SCREEN WILL BE COLORED BLUE AND 
100 RANDOM 

150 REM LINES OF RANDOM COLORS WILL BE DRAWN, 

160 REM SessssseSeeesee 

170 REM VARIABLE DICTIONARY 

180 REM Seesesse=se2sSe2 

190 REM A - RANDOM STARTING POINT 

200 REM B - RANDOM ENDING POINT 

210 REM C - RANDOM X OR Y POINT 

220 REM I - LOOP COUNTER 

230 REM xX - RANDOM COLOR CODE 

240 REM SeSeeeseeS2222 52 

290 REM COLOR IN BACKGROUND 

260 REM Sees 2 ]25e=222 =e 

270 HOME 

280 GR 


290 COLOR = 7 
300 FOR I = 0 TO 39 


100—230 document program and list 
important variables and what they 
represent. 


270 clears text page. (Undesired text 
may otherwise appear below graphics.) 


280 initializes low-resolution graphics 
screen. 
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HLIN 0939 AT I 
NEXT I 


LET X = INT( RND (1) * 16) 
IF X = 7? THEN 400 

COLOR = X 

REM Sress2ee22222222 


REM PLOT VERTICAL LINE 
REM ss SSS2S2>5222525 5252222 


GOSUB 610 
VLIN A+B AT C 
REM 2 ee 


REM ANOTHER RANDOM COLOR 
REM ee 


LET X = INT ( RND (1) * 16) 
IF X = 7 THEN 510 

COLOR = X 

REM Se2eersess2s2sne2=2 


REM PLOT HORIZONTAL LINE 
REM Sezreeazee22s22222 
GOSUB 610 

HLIN A+B AT C 

NEXT I 


REM SUBROUTINE TO CHOOSE 
REM THREE RANDOM POINTS 
REM ae 


LET A = INT ( RND (1) * 40) 
LET B = INT ( RND (1) # 40) 
LET C = INT ¢ RND (1) * 40) 
RETURN 


290 sets COLOR light blue; 300-320 
draw 40 horizontal lines completely 
across screen (x-axis points 0—39). In 
effect, this colors background light blue. 


360 defines loop which terminates at 
590. It will be executed 100 times. 


400 chooses random number 0-15. 


410 checks if chosen number equals 7, 
the background color code. If so, 
another will be chosen. Otherwise, 
COLOR set to random number at 420. 


460 calls subroutine at 610. 


470 draws vertical line from A on y-axis 
to B on y-axis at point C on x-axis. (A, 
B, C, values come from subroutine at 
610.) 


510-530 select random COLOR not 
light blue. Execution transferred again to 
subroutine at 610; 3 new random 
numbers stored in A, B, C. 


580 draws horizontal line from A on y- 
axis to B on x-axis at point C on y-axis. 


590 terminates loop. Since loop executes 
100 times, 100 random vertical and 
horizontal lines are drawn on screen. 


610-680 is subroutine generating 3 
random numbers (0-39). It stores them 
in A, B, C. 


7.4 STATEMENTS FOR HIGH-RESOLUTION GRAPHICS 


The Apple II microcomputer has two levels of graphics available: low-resolution 
graphics, as discussed above, and high-resolution graphics. High-resolution 
graphics, as the name implies, have greater detail or more resolution. However, 
something must be sacrificed for this feature—the variety of colors. 

The high-resolution screen is illustrated in Figure 7.2. A point on the screen 
is specified in the same fashion as on the low-resolution screen by giving the x- 
axis position first, followed by the y-axis position. However, the axes have con- 
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siderably more units: The x-axis contains 280 units (0 through 279) and the y- 
axis contains 160 (0 through 159). Four text lines are available at the bottom of 
the screen for instructions, questions, and comments. 

Instead of having sixteen colors available, only six are allowed: black, white, 
green, blue, orange, and violet. These colors will vary in hue depending on the 
brand of TV monitor being used. 


7.4.1 Statement HGR 


Purpose The HGR statement is used to initialize the high-resolution 
graphics screen in a program. When it is executed, the computer monitor will 
change from text to high-resolution graphics, and the screen will be cleared to 
black. As pictured in Figure 7.2, the high-resolution screen initialized with the 
HGR statement contains 44,800 points (0 to 279 by 0 to 159). 


7.4.2 Statement HCOLOR 


Purpose The HCOLOR statement sets the color for subsequent graphics 
statements. Once the color has been set, all graphics drawn on the screen will 
be of that color until another HCOLOR statement is executed. Six colors are 173 
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available. Each color is represented by a number from 0 to 7 (black and white 
are represented by two codes): 


HCOLOR = O (black) HCOLOR = 4 (black) 
HCOLOR = 1 (green) HCOLOR = 5 (orange) 
HCOLOR = 2 _ (violet) HCOLOR = 6 (blue) 

HCOLOR = 3 ~~ (white) HCOLOR = 7 ~~ (white) 


7.4.3 Statement HPLOT 


Purpose UHPLOT will place a dot on the screen at the x- and y-coor- 
dinates specified in the statement. The color of the dot will be the color specified 
by the most recently executed COLOR statement. 


Example: HPLOT 95,101 


(Plots a dot on the high-resolution screen 95 units to the right on the x-axis and 
101 units down the y-axis. See Figure 7.2.) 

The HPLOT statement can also be used to draw a line from one point on the 
screen to another. 


Example: 10 HGR 
20 HCOLOR = 3 
30 HPLOT 0:0 TO 2792159 
40 END 


(Draws a diagonal white line from the upper left corner to the lower right comer 
of the screen. See Figure 7.2.) 

HPLOT can also be used to draw a line from the last point plotted to the x- 
and y-coordinates specified. 


Example: 10 HGR 
20 HCOLOR = 3 
30 HPLOT 0:0 
40 HPLOT TO 279:0 
90 HPLOT TO 279,159 
60 HPLOT TO 07159 
70 HPLOT TO 0:0 
BO END 


(Draws a white border completely around the high-resolution screen.) 

A series of lines can be specified in a single HPLOT statement. The following 
example will have the same result as the previous example (a border around the 
graphics screen); however, it is done in one statement. 


Example: 10 HGR 
20 HCOLOR = 3 
30 HPLOT 0,0 TO 279;0 TO 2791159 TO 07159 TO 
00 
40 END 
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7.4.4 Statement VIAB 


Purpose The VTAB statement tabs to the line number specified so that 
text can be PRINTed on that line. Both the low-resolution and high-resolution 
graphics screens have four text lines available. These lines are the 21st, 22nd, 
23rd, and 24th lines on the text screen. VTAB 21 in statement 80 of the following 
program allows statement 90 to PRINT on line 21 and statement 100 to PRINT 
on line 22. 


Example: Enter the following high-resolution graphics program and RUN 
it: 


NEW 

> HOME 

10 HGR 10 initializes high-resolution graphics 

20 FOR I = 1 TO 100 screen. 

30 HCOLOR = INT(RND(1)*8) 

QO X = INT(RND(1)#280) 20-70 defines loop executed 100 times. 

90 Y = INT(RND(1)#*160) 

GO HPLOT X+Y 30 chooses random color. 

eas 40 chooses random x-axis position. 

80 VTAB 21 

90 PRINT “THE STARS AT NIGHT..-ARE BIG AND 50 chooses random y-axis position. 
BRIGHT" 

100 PRINT " DEEP IN THE HEART OF TEXAS."S$ 60 plots dot at chosen coordinate. 

110 END 


Brilliant! One hundred random points (stars) were plotted on the screen. 


7.5 HIGH-RESOLUTION GRAPHICS AND 
INSTRUCTIONAL COMPUTING MATERIALS 


When developing instructional computing materials that contain graphics, some 
special planning is necessary. In addition to the normal designing of the program, 
the graphic screens used in the program should be sketched or plotted on graph 
paper. Longer tutorial programs may require a storyboard to be prepared. This is 
a series of sketches of the graphics with the related textual information or ques- 
tions included. 

When designing the program, the graphics are most easily done in subrou- 
tines which can be called as needed in the program. The subroutines can be easily 
tested by typing RUN and the starting line number of the subroutine. (For exam- 
ple, RUN 800 would execute the subroutine beginning at line 800.) 


7.5.1 PROGRAM 26: Shape-Recognition Drill 


PROGRAM 26 is a drill-and-practice program that displays a shape on the 
screen for the student to identify. Four shapes are used: circle, rectangle, square, 175 
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and triangle. The program randomly presents five questions, presents the shape 
in random sizes, and keeps track of the student’s score. The program elements 
required in the design are: 


l. Instructions to the student. 


2. A loop to: 
a. Choose one of the four shapes. 
b. Branch to the appropriate subroutine. 


3. Four subroutines (circle, rectangle, square, and triangle) to: 
a. Choose a random height and width. 
b. Plot the shape, centered on the screen. 
c. Ask the student to identify the shape. 
d. Input the student’s answer. 
e. Display whether the answer is right or wrong. 
f. Tally the correct answers. 


4. Display the number of correct answers. 


5. End the program. 
Run from disk and refer to the listing of PROGRAM 26. 


JLOAD PROGRAM 26 


ILIST 

100 REM =sssssss222e22= 100-290 document program and list 
110 REM PROGRAM 26 DESCRIPTION and identify variables. 

120 REM SEesesssesesesesz2e 


130 REM SHAPE-RECOGNITION DRILL. 

140 REM PROGRAM DRAWS A SHAPE ON THE SCREEN 
150 REM AND ASKS USER TO IDENTIFY IT. 

160 REM SHAPES ARE: CIRCLE» RECTANGLE, SQUARE, 


AND 

170 REM TRIANGLE. SHAPES ARE DRAWN IN RANDOM 
SIZES, 

180 REM Seeerste22zs2222222 

190 REM VARIABLE DICTIONARY 

200 REM Seesstsess222222 


210 REM ANS$ - USER’S RESPONSE 
220 REM C - NUMBER CORRECT 


230 REM 4H - RANDOM HEIGHT 
240 REM I - LOOP COUNTER 
250 REM J - LOOP COUNTER 
260 REM W - RANDOM WIDTH 
270 REM X - X AXIS POINT 
280 REM Y - Y AXIS POINT 
290 REM Z - RANDOM SHAPE 


300 REM Sssexestqssee222 
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REM PRINT INTRODUCTION 
REM Ste2e2e2e22e22222 


PRINT "I AM GOING TO SHOW YOU SOME SHAPES," 
PRINT 

PRINT "YOU TELL ME WHAT KIND OF SHAPE IT IS." 
PRINT 

PRINT 

INPUT "ARE YOU READY? "SANS$ 

IF ANS$ < > "YES" THEN 330 

LET C = Q 


FOR IT = 1 T0 5 

HOME 

HGR 

VTAB 22 

PRINT "C=CIRCLE R=RECTANGLE S=SQUARE 
T=TRIANGLE" 

PRINT 

REM SseSsse2s26s= ss 

REM CHOOSE RANDOM SHAPE. 

REM BRANCH TO SUBROUTINE. 

REM SSssesstezez2te=z=“=2 

LET Z = INT ( RND (1) * @ + 1) 

ON Z GOSUB 650+770,89051010 

NEXT I 

HOME 

TEXT 

PRINT "YOU GOT "C$" SHAPES CORRECT!" 
PRINT 

PRINT "SOQ LONG FOR NOW." 


END 

REM 222225 

REM SQUARE 

REM a | 

LET H = INT ( RND (1) * 61 + 10) 

LET W = H * 1.20 

LET Y = 80 - H / 2 

LET X = 140 - W / 2 

HPLOT X»#Y¥ TO X + We¥ TO X + WeY¥ + H TO XeY 
+ H TO XY 


HPLOT X - 1+ Y - 1 TO X + Wt» Y - 1 
+ W+ is Y +H +1 7T0X - 1+ Y +H + 
TO X - 1» ¥ - 1 

INPUT "WHICH SHAPE IS IT? "SANS$% 

IF ANS = "S" THEN GOSUB 1170 

IF ANS$ = < > "S" THEN GOSUB 1260 


TO X 
1 


330-410 clear screen, provide basic 
instructions, and ask student if ready. If 
sO, program continues at 420; if student 
not ready, instructions are repeated. 


420 sets correct-answer counter, C, to 
zero. 


460 begins loop terminating at 580. It is 
executed 5 times. 


470—480 clear text screen and initialize 
high-resolution graphics screen. 


490-510 print answer codes on text line 
22. 


560 chooses random number (1-4). 


570 branches to corresponding 
subroutine. 


590 clears screen after loop executed 5 
times. 


600 switches back to full text screen. 
610 reports number of correct responses. 
630 makes concluding remarks. 


650—760 is subroutine that draws a 
square. 


680 generates random height for square. 


690 multiplies height by 1.2 to obtain 
width of square. (Because screen is 
rectangular, I unit on x-axis ~ 1.2 units 
on y-axis.) 


700—710 calculate the starting y- and x- 
axis positions; respectively, to center 
square on screen. (Note: 140,80 is 
approx. center screen.) 


720—725 draw the square. 


730 prints question on text line 24 and 
inputs answer into ANSS. If answer is 
“S’’ for square, subroutine at 1170 is 
executed. Otherwise, subroutine at 1260 


is executed. 
177 
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760 
770 
780 
790 
B00 
810 
B20 
830 
B40 


850 
860 
870 
B80 
890 
900 
910 
920 
930 
940 
350 
960 


965 


970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


RETURN 

REM iA 

REM TRIANGLE 

REM Sseseoc=s 

LET H = INT ( RND (1) * G1 + 10) 

LET W =H * .7 

LET Y = 80 - H / 2 

LET XK = 140 

HPLOT K»Y TO X + Ws¥ + H TO X - We¥ + H 
TO XY 

INPUT "WHICH SHAPE IS IT? "SANS$ 

IF ANSS = "T" THEN GOSUB 1170 

IF ANS$ < > "T" THEN GOSUB 1260 

RETURN 

REM SsSseseoeec 

REM RECTANGLE 

REM =SeSeSese 

LET H = INT ( RND (1) * G1 + 10) 

LET W = H * 2 

LET Y = BO - H / 2 

LET X = 140 - W / 2 

HPLOT X»¥ TO K + We¥ TO X + We + H TO XeyY 
+ H TO X+¥ 

HPLOT XK - 1» Y - 1 TO K + Weis ¥Y - 1 TO 
A +W+ ids Y + H+ 1 7TO X - ls ¥ + H + 1 ‘TO 
XK - l» ¥ - 1 

INPUT "WHICH SHAPE IS IT? "sANS$ 


IF ANS$ = "R" THEN GOSUB 1170 
IF ANS$ <¢ > "R" THEN GOSUB 1260 


RETURN 

REM — ia 

REM CIRCLE 

REM —_ 

LET H = INT ( RND (1) * Gi + 10) 
LET X = COS ( - 39.14) * H * 1.2 + 140 
LET Y = SIN ( - 3.14) * H + 80 
HPLOT XY 

FOR J = - 3.15 TO 3.15 STEP .1 
LET X = COS (J) * H * 1,2 + 140 
LET Y = SIN (J) * H + 80 

HPLOT TO X+Y 

NEXT J 

INPUT "WHICH SHAPE IS IT? "SANS$ 
IF ANS$ = "C" THEN GOSUB 1170 

IF ANSS$ < > "C" THEN GOSUB 1260 
RETURN 

REM SSeS 22 s2 555522 

REM ANSWER CORRECT 

REM —— to ed 

PRINT 

PRINT "YOU ARE CORRECT!" 


1170-1250 is subroutine that informs 
student of correct answer (1210) and 
adds | to correct-answer counter C 
(1220). 


1230 and 1240 loop 1000 times to slow 
drill to pleasing pace. 


1260-1330 is subroutine that informs 
student of wrong answer (1300). 


1310 and 1320 also loop 1000 times to 
slow pace. 


770-880 and 890-1000 are subroutines 
to draw triangle and rectangle. They 
follow same logic as square. Study them 
to discover technique used in each. 


1010-1160 is subroutine that draws a 
circle. Rather than connecting comers of 
an object, as with square, triangle, and 
rectangle, circle must be drawn by 
computing each x- and y-coordinate 
from a formula (polar coordinate 
formula). 


1040 randomly chooses value for circle 
radius. 


1050 calculates x-axis coordinate for 

starting point; 1060 calculates y-axis 

coordinate. Formulae are: 

X = COS(radian) x (radius) x (1.2) 
+ (x-coordinate for center) 

Y = SIN(radian) X (radius) 

+ (y-coordinate for center) 


1050 substitutes — 3.14 for radian, 
variable H for radius, and 140 for x- 
coordinate of circle center. Remember, 
1.2 is width-to-height ratio of screen. 


1060 substitutes — 3.14 and H, and 80 
for y-coordinate of circle center. 


1070 plots starting point on screen. 


1080-1120 calculate subsequent x- and 
y-coordinates around circle. Loop runs 
from — 3.15 to +3.15 (circle contains 
27 radians), stepping by 0.1. This 
stepping factor provides a relatively 
smooth circle; yet it plots at reasonable 
speed. 
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1220 LET C = C + 1 1110 draws line from previous point 
1230 FOR J = 1 TO 1000 plotted to current values of X and Y. 
1240 NEXT J 

1250 RETURN 1130-1150 ask student to identify shape 
1260 REM =seeeeetetre2e=2 and branch to appropriate subroutine if 
1270 REM ANSWER WRONG anew EU MENU OPWEOne: 

1280 REM sSssasesee2s2see22=e2 

1290 PRINT 


1300 PRINT "SORRY>» TRY ANOTHER." 
1310 FOR J = 1 TO 1000 

1320 NEXT J 

1330 RETURN 


7.6 SOME NOTES ABOUT USING COLOR 


The graphic statements in this chapter can be employed to ‘‘add a little color’ 
to instructional computing materials. However, there are both positive and neg- 
ative factors to be considered when using color: 

1. Color can increase attention. 


Color can increase motivation. 


Color is less fatiguing to the eye than black and white text. 


~~ “ » 


If color is used for highlighting concepts, it must be used consistently 
throughout the program. 


Limit the number of colors used at any one time to four. 
Use highly saturated (bold) colors. 


Consider color stereotypes. (Stop signs must be red.) 


a ND 


The greater the contrast between two colors (i.e., complementary colors), 
the greater the visual impact. 


9. Remember that 10% of all males and 5% of all females are color-blind. 


10. Most important: If you emphasize everything, nothing on the screen will 
stand out! 


7.7 POSERS AND PROBLEMS 


1. Correct any errors in the following statements: 


10 GR 

20 COLOR = 10 

30 HPLOT 10:10 TO 100,100 

40 END 179 


An Introduction to the BASIC Programming Language 


2. Modify PROGRAM 25 to draw random squares of random colors on the 
low-resolution graphics screen instead of random lines. 


3. What would result from the execution of the following statements? 


10 
20 
30 
40 
90 
60 


HGR 

HCOLOR = 2 

FOR Y = 0 TO 159 
HPLOT O+¥Y TO 2795¥ 
NEXT Y 

END 


4. Write a low-resolution graphics program that displays sixteen bars of 
different colors. (This program can be used as a test pattern to adjust the 
color on the TV monitor.) 


5. Write a low-resolution graphics program which displays a checkerboard 
pattern (your choice of colors) on the screen. 


6. Write a high-resolution graphics program that plots the function X = 
SQR(Y)*20 (vary Y from 0 to 159). 
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“It takes less time to do a thing right than to explain 
why you did it wrong.” 
—H. W. Longfellow 


“Garbage in, garbage out.” 
—Anon. 


“A thing of beauty is a joy forever. ”’ 
—John Keats 


Think About This (for Eun) 


Using each number only once, arrange the figures 0,1,2,3,4,5,6,7,8,9 so that their 
sum is 100. 


Think About This (Seriously) 


Should every student have had an exposure to computers and their uses by the 
time of graduation from high school? 


What Are Your Intentions? 


8.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
I. Identify the steps of a “systems approach” to the design of instructional 


computing materials (Section 8.3). 


2. Identify an area of personal interest within which to apply instructional 
computing. 


3. Outline a rationale, a set of quantitative performance objectives, and a 
sequence of instruction for a unit of instructional computing materials 
(Sections 8.3.1—8.3.3). 
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8.2 DESIGNING INSTRUCTIONAL COMPUTING 
MATERIALS 


A working knowledge of BASIC (or any programming language) provides only 
a very small step toward the actual development of educationally valid instruc- 
tional computing materials. In fact, such materials have been designed by edu- 
cators with no computing experience whatsoever! In these cases, the completed 
design is given to a computer programmer (who often knows very little about 
the specific academic area) for translation into an executable computer program. 
The executable program is tested, refined, and eventually put to use in the class- 
room. Thus, the key to the development of valid educational materials rests 
initially with their design. 

The entire design and development process can be improved if both the 
author and the programmer have something more than a casual awareness of 
the other's area of expertise. However, it is not often that the author and pro- 
grammer are one and the same person, with expertise in both programming and 
a given academic area. Very few educators have high proficiency in programming 
techniques and strategies. Likewise, few programmers know the intricacies of 
learning theory, instructional design, teaching methodology, and so on. 

The wide acceptance and use of microcomputers in education is bringing 
about a gradual change in this, however. More and more, both inservice and 
preservice teachers are gaining knowledge in computer literacy and instructional 
computing uses. With this knowledge will come improved materials and improved 
use of this medium of instructional technology which, literally, is at our finger- 
tips. 

Design! It is not too unusual for some individuals to have the feeling that 
they have never designed anything! However, if they have ever wanted anything, 
anything at all, that was eventually obtained through their efforts, they have 
experienced the design process! This process, then, is really something common 
to most people, and it has at least one fringe benefit: It makes us think logically 
and creatively. That is, the procedure—from identification of an objective to 
its attainment—becomes a series of steps. 

Often, this logical procedure is called an algorithm, and, in fact, it is a logical 
series of steps that must be followed in designing any effective package of instruc- 
tional materials. This process, however, is amplified greatly in designing and 
developing interactive instructional computing materials. There are several rea- 
sons for this amplification, the primary ones being the immediate feedback and 
active user participation aspects of instructional computing. The design of a pro- 
gram—for better or worse—rapidly becomes apparent to a user through the 
interactive nature of this type of instructional media. 


8.3 THE SYSTEMS APPROACH 


The design stage of instructional computing materials is one part of a process 
that is used extensively in the overall development of educational materials. 


What Are Your Intentions? 


Although this process is known by several names, and the steps may differ slightly 
among versions, it may be summarized as follows: 


Le] 


statement of the rationale for use 

statement of quantitative performance objectives 
definition of the instructional sequence 

program construction 

debugging 

pilot testing 

revision 


use in the classroom 


ee nN SD VY Se YY YS 


revision 


evaluation 


bm 
S 


These ten steps comprise the process often called a systems approach to instructional 
design. However, since it does involve a logical approach, another name might 
be, “A Common Sense Approach to Instructional Design.” 

The first three steps constitute the design stage and will be discussed in this 
chapter. The following seven steps will be discussed in Chapter 9. Note that, 
although all of these steps are important, the contents of each are determined 
solely by the author(s) of the instructional computing materials. In other words, 
the steps and general procedures for each can be outlined in this book, but the 
reason for any given instructional computing lesson—what it does and how it 
does it—can only be determined by its author(s). 


8.3.1 The Rationale 


Assume that an area of interest has been identified for the design and devel- 
opment of a unit of instructional computing material. Can reasons be stated why 
this particular area of interest should be taught in the first place? Can reasons be 
stated why a computer should be used? In other words, the rationale is the 
answer to why: Why teach this academic concept, and why use the computer as 
an adjunct to the instructional process? If the why cannot be justified in both 
instances, the design stage should be terminated and another area of interest 
identified. | 

The following examples of rationales are taken directly from instructional 
computing units developed by various teachers. Note how brief or how thorough 
such a rationale may be. The first example is very brief: 


The purpose of this learning module (unit) is to enrich the student's personal com- 
munication skills, provide a background knowledge for future study in business and 
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economics, and provide a beginning knowledge base of terminology for application 
in the selected career area. Terminology is essential for communicating in a specialized 
technological society. This module provides a beginning for building a vocabulary 
base in business, management and economics. 


A second, slightly longer rationale is very specific: 


Correct association of compound names with molecular formulas is a necessary skill 
for continuing successfully in a chemistry course. The names and formulas for com- 
pounds are used interchangeably throughout most chemical literature. Mastery of 
chemistry textbook reading material requires the correct identification of compound 
names and formulas. In the chemistry laboratory, names and formulas are also used 
interchangeably in labeling containers and in written laboratory procedures. A seri- 
ous error could result in the laboratory if a student incorrectly identified a compound 
used in the experiment. 


The computer can serve as an effective tool for the student who is learning to identify 
the names and molecular formulas of compounds because: 1) it allows the student 
to work at his/her individual pace, 2) it provides immediate feedback to the student 
after each answer is given, 3) it may randomly generate different questions so that 
the student has a variety of practice, 4) it scores the student at the end of the drill 
providing an estimation of progress, and, 5) it may be adapted for use in both drill 
exercises and testing. 


The third example is as specific as the second and is slightly more expansive: 


Preservice educational preparation for nursing in a coronary care unit generally focuses 
on dysrhythmia recognition. Given various electrocardiographic tracings, the learner 
is expected to label the patterns by origin and conduction of impulse, rate, and 
probable clinical sequela. She/he is rarely provided opportunity to project and eval- 
uate nursing actions based on recognition of the dysrhythmia. Consequently, these 
decision making skills are usually learned “on the job” under tutelage of a more 
experienced nurse practitioner. The trainee’s learning depends, then, on numerous 
variables—the experienced nurse’s willingness to teach, clinical situations which 
“happen” to be present, critical time factors which may or may not permit the trainee 
opportunity to project appropriate actions before action is required, and numerous 
other equally uncontrollable factors. Preservice teaching methods can, and should, 
be developed which facilitate the trainee’s acquisition of decision making/judgment 
skills in environments created deliberately for learning; learning within the setting 
of a coronary care unit is best reserved for only those abilities which cannot be 
synthesized in any other environment. 


Simulation is one possibly effective preservice teaching technique to facilitate acquis- 
ition of decision making/judgment skills. Simulation teaching strategies have been 
noted to enable the student to: 1) actively participate in learning, 2) integrate the- 
oretical concepts to simulated life situations, 3) desensitize oneself against threatening 
situations, 4) be presented with identical “hands-on experiences” as those presented 
fellow learners, 5) experience some of the doubts, competencies, difficulties and 
anxieties that would be experienced in actual clinical settings, and, 6) respond in a 


What Are Your Intentions? 


safe standardized context free of concern about harming the patient or pleasing a 
tutor. 


What are the advantages of using the computer in designing these simulated expe- 
riences? First, the selection and sequencing of problems can be randomized inde- 
pendent of instructor or learner choice at the moment—a situation more closely 
approximating the “randomness” of the actual clinical setting. Second, the learner 
can be provided with immediate feedback on decisions made. Third, since computers 
are interactive, the student's response has a measurable effect on the material as it is 
presented. Fifth, the learner can choose the time for instruction, times when faculty 
may or may not be available. Sixth, the instructor can reconstruct precisely the sequence 
in which the student responds to the simulated clinical situation, diagnose errors in 
approach, and pinpoint reinforcement and help. 


In summary, the rationale underlying this unit rests on three premises: 1) A need for 
preservice acquisition of decision making/judgment skills exists. 2) Simulated expe- 
riences can assist in acquisition of these needed skills. 3) Use of the computer enhances 
the student’s independence, assists instructor diagnosis of learning difficulties, and 
facilitates the process of simulating clinical situations. 


8.3.2 Quantitative Performance Objectives 


Students will be interacting with your programs: Do they know what is 
expected of them before, during, and after this interaction? Before a student sits 
down at a computer terminal, information should be provided that at least out- 
lines the prerequisites for interaction, what the interaction will deal with, and, 
specifically, what constitutes a successful interaction. For what goals should the 
student strive, and how will it be determined if these goals are attained? 

Continuing with our examples from the previous section, a statement of 
quantitative objectives might be as brief as: 


General: Given a basic list of business terms, the student will develop a working 
knowledge of basic business terms. The student will demonstrate this ability by com- 
pleting successfully the instructional computing units focusing on terminology mastery. 


Specific: Given a set of terminology, the student will complete the instructional com- 
puting unit with 90% or better accuracy on a 20-word list. 


The second example is succinct and equally brief: 


1. The student will be able to state the name of a compound when given its molec- 
ular formula with 80% accuracy. 


2. The student will be able to state the molecular formula of a compound when 
given its name with 80% accuracy. 


The third example is longer but also quite specific: 


187 


An Introduction to the Design and Development of Instructional Computing Materials 


188 


Given a cardiac rhythm strip, the student will identify the pattern by site of origin 
and rhythm with 100% accuracy. 


Given a cardiac rhythm strip, the student will identify an appropriate sequence of 
nursing actions from among the following four alternatives: obtain more data, 
execute a standing order, call the physician, or continue close observation. 


Given a decision to call the physician, the student will indicate the information 
to be shared, omitting no pertinent data. 


Given a decision to obtain more data, the student will ask for data pertinent to 
formulating a subsequent action-decision. 


Given feedback regarding a questionable action-decision, the student will re-eval- 
uate the decision and indicate with 100% accuracy if the decision was appropriate. 


For a thorough and enlightening description of defining instructional objec- 
tives, the reader is referred to the classic text in this field, Preparing Instructional 
Objectives by R. F. Mager (Fearon Publications, Palo Alto, Calif., 1962). 


8.3.3 The Instructional Sequence 


This step in design is probably the most difficult for tutorial dialog programs 
and the least difficult for linear (nonbranching) programs. Obviously, the instruc- 


tional 


sequence is in part determined by the type of instructional computing 


(problem solving, drill, simulation, etc.) to be applied. This in turn is determined 


by the 
of the 


rationale, objectives, and interactive tasks defined for the unit. Regardless 
type of use, this step should include, as a minimum, answers to such 


questions as: 


l. 


Should review material or other information specifically related to the 
unit be provided prior to actual interaction? If so, what? 


What student-control options should be included? Stop at will? Skip 
problems or sections? Receive answers to questions without an actual 
attempt at answering? 


How many questions will be included in the interaction? 


What are the anticipated correct answers to questions? What response(s) 
will be given? 


What are the anticipated incorrect answers to questions? What response(s) 
will be given? 


What will the program do if neither an anticipated correct nor incorrect 
answer is matched? Give a hint? Give the answer? 


How many “misses” will be allowed? 


Will branching to review sections be provided for students having 
difficulty? 


What Are Your Intentions? 


9. Will only answers that are correct on the first attempt be recorded? 


10. How will the performance report to the student be presented? Will 
areas of strength and/or weakness be identified? 


Answers to these—and perhaps many other questions, depending upon the 
design—must be outlined on paper prior to translation of the defined sequence 
into a computer programming language. 


8.4 POSERS AND PROBLEMS 


1. Outline on paper the rationale, quantitative objective(s), and sequence 
of instruction for a short unit of instructional computing in an area of 
your interest. 
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“The young do not know enough to be prudent and 
therefore they attempt the impossible—and achieve tt, 
generation after generation.” 

—Pearl S. Buck 


“The next-best thing to knowing something 1s 
knowing where to find tt.” 
—The Ensign 


“Them as has, gits.” 
—Anon. 


Think About This ( for Eun) 
A frog (male) is at the bottom of a thirty-foot well, trying to escape. Everytime 


he jumps up three feet, he falls back two. How many jumps will it require for 
the frog to get out? 


Think About This (Seriously 


Should our society become a computer-literate society? If so, how could this be 
accomplished? 


Developmental Processes 


9.1 OBJECTIVES 
For the successful completion of this chapter, you should be able to: 
I. Identify the processes involved in the developmental steps of the systems 


approach to instructional design (Section 9.2). 


2. Identify at least ten of the twelve guidelines for the design and devel- 
opment of instructional computing materials (Section 9.3). 


3. Using information discussed in Chapters 1 through 9, design and develop 
instructional computing units. 


9.2 THE SYSTEMS APPROACH (continued) 


The design of instructional computing materials constitutes the first three steps 
of the systems approach. These steps are essentially mental, paper-and-pencil 
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processes. Once the rationale, objectives, and instructional sequence have been 
defined, the remaining steps of the development process—the coding, debugging, 
testing, refinement, and use and evaluation of the materials—may be started. 

The total process, from rationale to evaluation, for an original set of instruc- 
tional computing materials may require 50 to 250 person-hours for each hour 
of student interaction at a terminal. This would include development of any 
accompanying materials, such as student and instructor manuals. Of course, if 
model programs are simply adapted to a teacher's specific needs, the time required 
for development is considerably reduced. 


9.2.1 Program Construction 


Actually, this step is still a mental, paper-and-pencil process for the most 
part. It primarily involves the translation of the instructional sequence into com- 
puter program statements. This is the first of the systematic steps in which some 
degree of programming expertise is required from either the design author or a 
programmer. Programming techniques and strategies must be used in transferring 
the design concepts from paper to executable program code. This step may range 
from the trivial task of adapting a model program to the extremely involved, 
time-consuming process of translating an original, detailed design into program 
code. 


9.2.2 Debugging 


Once the code has been written, entered, and saved, execution of the pro- 
gram is attempted. Chances are, the program will not run. Problems, commonly 
called bugs in computerese, may be present. These may be anything from simple 
syntax errors (Omitting quotes, misspelling statements, etc.) to technical or con- 
ceptual errors (incorrect use of a formula, right answer not accepted, omitting 
counters, branching at the wrong point, etc.). Debugging (extermination of the 
errors) is done to the point that program execution is satisfactory from the 
author’s viewpoint. 


9.2.3 Pilot Testing 


Pilot testing of the program is performed next. Generally, this is done with 
the aid of teaching colleagues and a few volunteer students to test the program 
on an individual basis. It is recommended that the author literally “look over 
their shoulders” as they run the program since it is a rare case in which something 
unanticipated does not occur. These events may be as trivial as the user typing 
in an anticipated answer, followed by an unanticipated period or space which 
the program cannot handle. Alternatively, a major discussion of the conceptual 
and/or instructional strategy may be involved. Of course, the main point of pilot 
testing is feedback to the author regarding the design and content of the program. 


9.2.4 Revision 


It is common for instructional computing materials to be frequently revised. 
However, the majority of revisions occur after pilot testing. These revisions are 
usually fairly minor in nature, involving redefining anticipated answers, improv- 
ing responses, making cosmetic improvements to the display, and so on. How- 
ever, the revisions could be as major as returning to the design stage for refine- 
ment of the program or, in extreme cases, discarding the program. (If the design 
steps are thought out carefully, this probably will not occur!) Note that the pilot 
testing and revision steps are cyclic and may be repeated several times prior to 
actual classroom use of the program. 


9.2.5 Use in the Classroom/Further Revision 


Use of instructional computing materials in the classroom is, obviously, directly 
related to the design of the materials. This use may be supplemental for those 
students needing review or assistance on a given concept; it may be a required 
segment of a set of “learning activities”; it may be a prerequisite simulation of a 
real experiment prior to entering the laboratory; it may be used both as a drill 
and a testing procedure; and so on. 

Regardless of the particular application, it is safe to anticipate minor revision 
of the materials, if for no other reason than the number of users testing the 
materials will have increased. Again, it is unlikely that the materials will ever get 
to the point where no additional revisions (however minor) are needed. Thus, 
use in the classroom and revision are cyclic and may continue as long as the 
materials are a part of the given instructional process. 


9.2.6 Evaluation 


Evaluation of instructional computing materials may be divided into two 
categories. The first is an analysis to determine if the students are indeed attaining 
the defined objectives. This analysis may vary depending upon the design of the 
materials, but it is often based upon pretest and posttest results. If negative results 
are indicated, a return to Step 1 of the systems approach may be appropriate. 

The second evaluation is of the concept of using instructional computing 
materials. Did this approach as an instructional medium prove suitable? Analysis 
of this comes in part from evaluation of the materials in terms of meeting defined 
objectives. Further evaluation may be based on both student and colleague feed- 
back via attitudinal questionnaires, overall student performance, and, although 
it lacks quantitative measurement, the author's intuitive feeling. 

Note: Research since the late sixties has consistently indicated that the con- 
cept of the use of supplemental instructional computing materials is educationally 
valid. In general, the success or failure of any given instructional computing 
program rests heavily upon the design steps previously discussed. Although it 
should go without saying, the importance of thoughtful design merits emphasis 
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one final time. If, in particular, the rationale, objectives, and instructional sequence 
are very carefully defined, the chances for successful use of the materials are 
greatly enhanced. In other words, think it through, folks! 


9.3 GUIDELINES FOR DESIGN AND DEVELOPMENT 


9.3.1 Consider BASIC 


Although there are some disadvantages to using BASIC as an instructional 
computing language (primarily in translating instructional sequence into pro- 
gram code), they are minor when compared to the relative ease of acquiring a 
working knowledge of the language, its universal nature, and its transportability. 


9.3.2 Modularize the Units 


It is good practice when writing any computer program to keep it as modular 
(concise by topic) as possible. For example, if a given concept includes a series 
of subconcepts, it is better to have one program for each subconcept, rather than 
one long program for the total concept. Programs are not only easier to design 
on this basis but are also easier to debug and revise. 


9.3.3 Follow a Systems Approach 


It is obviously important that the author of a program know the why, what, 
how, and effect of using instructional computing materials. For purposes of moti- 
vation, it is equally important that the student know why the area is worth 
studying, what the objectives are, how they will be achieved, and what effect 
they will have. Following a systems approach in the design and development of 
the materials is a means by which this may be accomplished. 


9.3.4 State Quantitative Objectives 


Although this is one of the steps in the systems approach to instructional 
design, it merits reiteration. Ensure that users of instructional computing mate- 
rials know specifically the extent and effect of a successful interaction with the 
materials. This means that measurement of the objectives must be possible. 


9.3.5 Put in Personality 


Be kind to the users of your materials. Have a variety of positive reinforcers. 
Avoid the use of any negative feedback to the student; rather, make your responses 
to incorrect answers indicate that you are there “in spirit” to assist the student, 
and then proceed to do so. Include enough humor to solicit a smile or two from 
the user, but avoid the use of “cute” statements and repetitive responses. Also 
avoid the use of “fad” responses; they go out of style quickly. 


9.3.6 Consider Gluteal Limits 


Another advantage of modularization is that the user will not be sitting at a 
terminal for lengthy periods. A good “rule of rear” is to keep the interaction to 
30 minutes or less. 


9.3.7 Avoid Lengthy Text 


Do not make programs “page turners”! It is expensive and boring. One of 
the key elements in successful instructional computing is that the user be an active 
learner. If detailed information, figures, tables, and so on, are required, have 
these available as supplemental materials prior to or during the interaction. 


9.3.8 Branch ~ 


Another key to success is the individualization that may be provided by 
branching. If appropriate, the program should have the capability to allow stu- 
dents to view additional material, skip areas if competence is indicated, and/or 
stop the interaction at will, based upon student need or performance. In any 
event, never construct a program so that the student is trapped in a routine with 
no means of escape. Always provide some means by which the student may 
continue. For example, give the answer after a certain number of incorrect responses 
or provide other options. 


9.3.9 Supplemental Use 


For better or worse, the major use of instructional computing is as a supple- 
ment or adjunct to traditional instruction. There are few courses that are taught 
by computer alone. Design units that will ease those areas that are routine to the 
instructional process or that can be best done by instructional computing tech- 
niques. Remember, it takes teachers to truly impart personality, lead discussions, 
and explain abstract concepts. 


9.3.10 Document 


Your work in the design and development of materials represents much time, 
effort, and thought. Thus, have your programs well documented with REMark 
statements and develop student and teacher guides where appropriate. This will 
facilitate not only the local use of your materials, but also their potential use 
elsewhere. 


9.3.11 Review the Literature 


Have others done what you are doing? Is their approach different from yours? 
Are you “reinventing the wheel”? Before you invest the effort required to design 
and develop materials, you should know what has gone before. Likewise, if your 
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work is unique and successful, consider publishing a description of what you 
have done. There are a variety of instructional computing journals and other 
publications available (see Appendix D). Others interested in instructional com- 
puting should have the opportunity to become aware of your efforts. 


9.3.12 Recognize the Capabilities of the Computer 


Finally, but perhaps foremost, never forget that, to this point in the realm of 
instructional computing, computers are an incredibly fast, accurate, and useful 
tool. They can only do what they have been programmed to do. That means that 
people are providing the instructions. Thus, computer programs are only as good 
or bad in their actions as they have been designed to be by the people who 
provided the instructions. 

Instructional computing materials have been used successfully in problem 
solving, drill, testing, simulation, and, to a lesser degree, tutorial applications. In 
general, these are applications where speed and accuracy are important in improving 
the instructional process. That is where we are today. 

Where will instructional computing be in the future? More and better of the 
same? Faster and cheaper computing? Computers in every home and school? 
Libraries of validated instructional computing materials? Use in practically every 
academic discipline? It is difficult to accurately predict this future, for the limits 
are determined by something unpredictable and unlimited: imagination. 


The Apple Computer and 
How to Use It 


A.1 THE APPLE Il COMPUTER 


The Apple I microcomputer is one of the most popular computers used in edu- 
cation. Among the reasons for this popularity is its flexibility and expandability. 
An Apple owner can begin with a modest investment and gradually upgrade the 
system as his or her interest and budget allow. 

The variety of components available for the Apple make it difficult to describe 
all the possible combinations. Therefore, this book will limit the discussion to 
the typical system found in schools: 


1. Apple II Plus with 48K of RAM. 
2. Color television or monitor. 

3. Disk II floppy disk drive. 
4 


Dot matrix printer. 


A.1.1 The “Core” of the Apple 


From the exterior, the Apple resembles a typewriter with a keyboard but no 
place to put the paper. Inside the case of the Apple are the integrated circuits 
known as IC‘ or chips that make it operate. Figure A.1 illustrates the “core” of 
the Apple. 

The functional work unit is the microprocessor chip which is located centrally 
in the computer. Surrounding the microprocessor are memory chips, peripheral 
slots, and other electronics necessary for the operation of the Apple. 

Two types of memory are found in most microcomputers. ROM, Read-Only 
Memory, has programs already stored in it by the manufacturer. These programs 
may be read but not changed in any way. They are permanent and are never 
lost, even when the power is turned off. In contrast, RAM, Random Access Memory, 
is read-and-write memory. It may be read or changed (written to). When the 
power is turned off, any programs or data stored in RAM are erased. 
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Figure A.1 

The “‘core’’ of the 
Apple II. 
(Photograph by 
Carey Van Loon) 
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In the Apple II Plus, ROM contains the programs that make the computer 
operate (the operating system) and the Applesoft language interpreter. The latter 
will convert Applesoft BASIC statements and commands to meaningful codes to 
which the microprocessor can react. 

In the Apple II, the predecessor of the Apple II Plus, ROM contained the 
operating system and the Integer BASIC language. If the reader wishes to use 
such a system with this text, he or she will need either the Applesoft Firmware 
card, which contains the same ROM as the Apple II Plus, or the Language System 
which contains 16K of RAM. The Language System works by loading the Apple- 
soft BASIC interpreter into its RAM from the disk drive. (Note that, although the 
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Applesoft language can be loaded into RAM on the Apple II, it will not allow 
user access to high-resolution graphics and some of the programs contained in 
this book will not function properly.) 

The Apple II Plus is available with 16K (16,384 characters of storage), 32K, 
or 48K of RAM. This memory is used to store a BASIC program, the program 
variables, the images of the text screen, the low-resolution graphics screen, and 
the high-resolution graphics screen. When using a disk drive, the Disk Operating 
System (DOS) containing the instructions to transfer data and programs between 
the Apple and the drive is loaded into RAM. This requires at least a 32K Apple 
system. If the user also wishes to utilize the high-resolution graphics screen in 
addition to a disk drive, a 48K Apple system will be needed. Consequently, most 
educators choose the 48K system. 

Eight slots are provided inside the Apple toward the back. These slots are 
numbered 0 through 7 and are used to connect the Apple with peripheral devices. 
Slot 0, however, is the exception. It is used only for memory expansion and can 
contain the Applesoft Firmware or Language System cards mentioned above. 
Slots 1 through 7 are used for communicating with external devices such as 
printers (usually slot 1), other computers (slot 2), and disk drives (slot 6). Other 
less common peripherals include graphics tablet, clock, voice synthesis, voice 
recognition, plotter, and music synthesis. 

The remaining integrated circuits in the Apple’s core are used to generate the 
screen display, decode the keyboard input, and create sounds on the Apple’s 
speaker. As with all electronic appliances, severe damage or shock can result 
from liquids being spilled inside the Apple. Appropriate care should be exercised. 


A.1.2 The Television (Monitor) 


The Apple II will output to any black and white or color television. (Of 
course, color graphics cannot be displayed in color on a black and white TV. 
Alternatively, either a black and white or color monitor can be used. A monitor 
will generally produce a sharper picture than a television; however, it is usually 
more expensive. The TV set is connected to the Apple with an RF modulator 
which converts the Apple’s video signal to a TV signal. The modulator is con- 
nected from inside the Apple to the TV antenna leads. If a monitor is used, it is 
connected directly to the video output plug at the right rear corner of the Apple. 


A.1.3 The Disk II Drive 


The Disk II floppy disk drive is the “file cabinet” of the Apple. It is capable 
of storing 143,360 characters of information (programs and/or data) per diskette 
and can retrieve a single piece of information in 5/100000 of a second. The disk 
drive is connected to the Apple through an interface called a disk controller which 
is plugged into slot 6 of the Apple. Two drives can be connected to one controller, 
in which case they are usually labeled drive 1 and drive 2. This book utilizes 
only drive 1. 
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A.1.4 The Dot Matrix Printer 


A variety of printers can be connected to the Apple through an interface 
plugged into slot 1. The most common and least expensive printer uses a pattern 
of dots to print the characters on the paper; hence the name dot matrix printer. 
The cost of printers range from approximately $400 to several thousand dollars; 
hence they are considered by some to be a “luxury” in the educational setting. 
However, a printer is essential to the process of developing instructional com- 
puting materials. 


A.2 HOW TO USE THE APPLE WITH THIS BOOK 


A companion to this book is a diskette containing all of the sample programs 
described in the various chapters. This diskette is designed to work on a 48K 
Apple II Plus system with a Disk II drive. A 48K Apple II system with Integer 
BASIC can be used if either an Applesoft Firmware or a Language System card 
is installed in peripheral slot 0. 

It is recommended that the reader use this diskette in conjunction with the 
book in order to study the programs. It is further recommended that a second 
diskette be used to store the programs you develop from the “Posers and Prob- 
lems.” The following sections will explain how to boot up the Apple, initialize 
your own diskette, care for diskettes, use a printer, and what to do if you get into 
trouble. 


A.2.1 Booting Up 


Using the diskette labeled “An APPLE for the Teacher: Fundamentals of 
Instructional Computing,” boot up the system as follows: 


I. Open the door on disk drive 1 by pulling outward on the bottom edge 
of the door. 


2. Slip the diskette into the slot in the front of the drive with the diskette 
label facing upwards. The edge of the diskette with the oval cutout should 
be toward the back of the drive. 


3. Push the diskette gently into the drive until it is entirely inside it. Do not 
force or bend the diskette. Close the disk drive door. 


4. Turn on the television and turn the sound down all the way. 


5. Turn on the Apple by pushing upward on the switch located at the back 
of the computer on your left-hand side. The red light on the disk drive 
will go on and the drive will make clicking sounds. 
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6. After a few seconds, the title of this book should appear on the screen 
(Figure A.2), followed by the authors’ names. After a few more seconds, 
a warning about use of the diskette and a menu of the programs stored 
on it will appear (Figure A.3). 


7. Select a program from the menu, type in its corresponding number, and 
depress the RETURN key. The program then may be either LOADed or 
RUN at your option by depressing 1 or 2 followed by depressing the 
RETURN key. 


The process of powering up the Apple is called booting DOS by experienced 
Apple users. What takes place is that the DOS (disk operating system) is loaded 
from the diskette into RAM memory and a predetermined program is executed. 

To execute another program on the diskette, type RUN followed by the name 
of the program, and depress the RETURN key. To see a list of the program’s 
statements, type LIST and depress the RETURN key. For example: 


RUN PROGRAM 1 [don’t forget the RETURN key] 


will load PROGRAM | from the diskette into the computer’s memory and exe- 
cute it; and 


LIST [depress RETURN] 


will list all the statements of PROGRAM Il. 
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THIS IS NOT A DEMONSTRATION DISKETTE! 


THE PROGRAMS ARE AN INTEGRAL PART OF 


AND SOLELY FOR USE IN CONJUNCTION WITH 


THE ACCOMPANYING TEXT MATERIAL. 


DEPRESS ANY KEY.-e- 


[Clear screen] 


* * MENU OF PROGRAMS * * 


EXAMPLE PROGRAMS FROM THE TEXT: 


11 16 21 26 
12 17 22 
13 18 23 
14 19 24 
0 15 20 25 


ANSWERS TO ‘’POSERS AND PROBLEMS’: 


27..A35S4 30.,.ABG2 33..A786 
28.-AG22 31..A784 
29.-AG4SB 32..A785 


DEMONSTRATION PROGRAMS FROM THE TEXT: 


34..I1SLAND 36..SOCKS 
35. KEYWORD DEMO 37..MENU 


PLEASE ENTER THE NUMBER OF THE PROGRAM 
YOU WISH?1 


[Clear screen] 


DO YOU WISH TO: 
1. LOAD 
2. RUN 


PROGRAM 1 (ENTER 1 OR 2)?1 
[Clear screen] 


LOADING PROGRAM 1... 
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A.2.2 Initializing a Blank Diskette 


You will want to store the programs you write on a diskette. Although you 
can store your programs on the diskette that comes with this book, it is best to 
use another diskette so that you don’t accidentally delete a sample program. 

Obtain a new blank diskette and follow this procedure: 


l. 


After removing the sample program diskette from the disk drive, insert 
your blank diskette into the disk drive. 


Type NEW and depress the RETURN key. 
Type 10 HOME and depress the RETURN key. 


Type INIT HELLO and depress the RETURN key. The red light on the 
disk drive will glow and the drive will whirr for about two minutes. 


When the ‘’]” character appears, remove the diskette and label the out- 
side of the diskette with a pressure-sensitive label. Use a felt pen so that 
you won’t damage the diskette. 


It is very important that you have a blank diskette in the drive when you 
follow the above procedure, otherwise you will destroy any programs on the 
diskette. This procedure formats the diskette so that it can be used with the Apple. 
The DOS is copied from memory onto the diskette along with whatever program 
is stored in memory. The diskette can subsequently be used to power up (boot) 
the system. 


A.2.3 Care and Treatment of Diskettes 


The programs you store on diskette are valuable. You have an investment 
in them—either time or money or both. Eliminate troubles by following these 
simple precautions: 


Handle a diskette by the jacket (plastic cover) only. Do not allow anything 
to touch the exposed area of the diskette. 


Never subject a diskette to a magnetic field; it may erase the diskette. 
Setting your diskette on top of a TV or printer could cause problems. 


Keep diskettes flat. Do not fold, bend, or crimp in a three-ring binder. 
Insert diskettes carefully into the disk drive. Don’t use unnecessary force. 


Store diskettes in their envelope away from liquids, dirty or greasy sur- 
faces, and dust. In the classroom, chalk dust can cause serious problems 
with diskettes. 


Do not expose diskettes to extreme hot or cold temperatures. Car dash- 
boards and trunks are diskette killers. 
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A.2.4 How to Use a Printer 


Since several different printers may be used with the Apple II computer, the 
following instructions for using a printer are generalized. Should these instruc- 
tions not work, refer to the printer manual. 


I. Locate the on/off switch on the printer and turm it on. 
2. Check for a switch labeled online/offline and set for online. 


3. Type PR#1 and depress the RETURN key. From now on, any text that 
appears on the television screen should also appear on the paper in the 
printer. 


4. Whena”)” appears, printing may be halted by typing PR#0 and depressing 
the RETURN key. Locate a switch on the printer labeled linefeed or form- 
feed. Use this switch to eject the paper so that the printout can be removed 
from the printer. (Note: The printer may need to be offline to eject the 
paper.) 


The above instructions require that the printer interface be plugged into 
peripheral slot 1 inside the Apple. This is its normal location. 

The default print line length is 40 characters, the same as the Apple’s screen 
line length. Some printers can print 80 characters per line. To print 80 characters, 
type the following sequence of keys: 


1. Type PR#1 and depress RETURN. 
2. Type I while holding down the CTRL key. 
3. Type 80 and depress RETURN. 


A.3 WHAT TO DO WHEN ALL ELSE FAILS 


A.3.1 Booting DOS Manually 


Because of the number of possible configurations of Apple systems, the above 
instructions will not always boot the system. If you follow the instructions in 
Section A.2.1 and the disk light does not go on, you can manually boot the DOS 
as follows: 


1. Ifa‘‘]’ or ‘’>” appears on the screen, type PR#6 and depress the RETURN 
key. 


2. Ifa ‘’*’’ appears on the screen, type 6; then type P while holding down 
the CTRL key. Finally depress RETURN. 


The Apple Computer and How to Use It 


A.3.2 Getting Back to BASIC (Applesoft) 


Through a number of different ways, it is possible to get out of Applesoft 
BASIC (designated by a ‘‘]’’ prompt) and into either Integer BASIC (designated 
by a “>” prompt) or the Apple monitor mode (designated by a ‘‘*’’ prompt). 
Follow these directions to return to Applesoft: 


1. Ifa‘’>’’ appears on the screen, type FP and depress RETURN. 


2. Ifa ‘’*’’ appears on the screen, type 3D0G and depress RETURN. (That's 
a zero after the D.) 


A.3.3 Halting a Runaway 


Sometimes when you RUN a program or make a LISTing of a program you 
may desire to stop before it finishes. To do this, type C while holding down the 
CTRL key. 


A.3.4 The Last Resort 


If all attempts to get yourself out of the jam you’re in have failed, try depress- 
ing the RESET key and following the instructions above for getting back into 
Applesoft. Note that depressing the RESET key during a program RUN can have 
disastrous results. (Some systems require the CTRL key to be held down while 
depressing RESET.) 

The ultimate correction for problems is to turn the power off and then boot 
up the Apple again. This will definitely erase the program in memory, but it will 
not affect the diskette as long as the red light on the disk drive is not lit when 
you turn off the power. 

If you cannot get the companion diskette to this book to boot correctly, reread 
Section A.2 to make sure the Apple you are using is configured correctly. 
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Applesoft Language 
Summary 


This appendix defines the most common statements and commands used by 
educators on the Apple computer. It is not a complete listing of all possible 
statements, nor does it present a detailed description of the action of each state- 
ment. The reader who requires such information is referred to the Applesoft 
BASIC programming reference manual that comes with each Apple I. 

The assumption of this appendix is the same as that of the rest of the text: 
The statements and commands as described are intended to be used on an Apple 
II Plus (or Apple IJ with an Applesoft Firmware or Language System card) with 
48K of RAM memory and one or two disk drives whose controller card is located 
in slot #6. This configuration is very common for educational users. If the reader’s 
system is not configured in this fashion, some of the following statements and 
commands will function differently than documented. 

In the following summary, the general format for each statement or com- 
mand is followed by an example (or examples) and a description of the action 
initiated. The conventions and abbreviations used are as follows: 


Ceee? Required element. 
{1.0} Optional element. 
cond Any logical condition. 


dimension(s) The maximum dimension(s) of an array. 


expr Any numeric constant, variable, or expression. 
file Any legal filename (only the first 30 characters are used). 
Key Any key on the Apple keyboard. 


line number — Any legal line number from 0 to 32767. 
message Any combination of characters. 


statement Any legal Applesoft statement. 


string 


variable 
or var 


X 
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Any string constant, variable, or expression. 


Any legal variable as described in 
Section B.4. 


Any numeric constant, variable, or expression defining an x- 
axis value. 


Any numeric constant, variable, or expression defining a y- 
axis value. 


B.1 BASIC STATEMENTS 


DATA 


DIM 


END 


FOR 


GET 


line number DATA <list of variables> 
210 DATA 4.3+"A TO Z2".10 


Provides a program with data which can be stored into variables 
using the READ statement. In the example, 4.3 is a real number, 
“A TO Z” is a string, and 10 is an integer. (See READ below.) 


line number DIM <variable(dimension(s) )> 
10 DIM A(23) 1B(354) »C$(4) »0$(12 530) 


Defines a variable capable of storing a list (single dimension) or 
a table (double dimension) of a specified length. In the example, 
A is a numeric variable with 23 possible entries. D$ is a string 
variable with a maximum of 12 rows and 30 columns. 


line number END 
32767 END 


Terminates the execution of a program. 
line number FOR <var> = <expr> TO <expr> {STEP <expr>} 
45 FOR I = 2 TO 10 STEP 2 


Creates a loop that executes all of the statements between a FOR 
and a NEXT statement a specified number of times. In the exam- 
ple, the loop would be executed for the values of I from 2 to 10 
by 2s (i.e., 2, 4, 6, 8, and 10). (See NEXT below.) 


line number GET <variable> 


70 GET X$% 


Inputs a single character from the keyboard without the char- 
acter being printed on the screen. Does not require the RETURN 
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GOSUB 


GOTO 


IF-THEN 


INPUT 


key to be pressed. In the example, the input character is stored 
in the variable X$. 


line number GOSUB <line number> 
220 GOSUB 10000 


Unconditionally branches program execution to a subroutine at 
the indicated line number. When a RETURN statement is 
encountered in the subroutine, execution is returned to the 
statement immediately following the GOSUB. The example will 
cause the program to branch to the subroutine beginning at line 
10000. (See RETURN below.) 


line number GOTO <line number> 
670 GOTO 10 


Causes the execution of the program to branch to the indicated 
line number. In the example, program execution will branch 
from line 670 to line 10. 


line number IF <cond> THEN <statement> 
line number IF <cond> THEN <line number> 


0D IF AS = "¥" THEN PRINT "CORRECT" 
75 IF K < 2 THEN 300 


Causes the program to execute the indicated statement or branch 
to the indicated line number if a specified condition is true. If 
the condition is false, the statement or branch is not executed 
and the program continues with the execution of the next num- 
bered statement following the IF-THEN. In the first example, 
CORRECT will be printed if A$ has the string value “Y”. The 
second example will cause a branch to line 300 if the value 
stored in X is less than the value stored in Z. 


line number INPUT ({string;} <list of variables> 


240 INPUT "WHAT IS YOUR NAME? "Ss NAMES 
800 INPUT A»B>C 


Inputs data from the keyboard to be stored into the respective 
variables listed. Optionally, INPUT can print a string on the screen 
before waiting for input. The RETURN key must be pressed after 
the user has entered data. In the first example, the string WHAT 
IS YOUR NAME? will be printed on the screen, followed by the 
cursor. The string the user enters will be stored in NAME$. The 
second example will input from the keyboard three numeric 
values separated by commas and store them into A, B, and C, 
respectively. 


LET 


ON-GOSUB 


ON-GOTO 


PRINT 
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line number LET <variable> = <expr> 
line number <variable> = <expr> 


110 LET C = 100 
120 P$ = "GREAT!" 
130 A = 1/2 * B +H 


Assigns the value of <expr> to <variable>. The word LET is 
optional. In the examples, the value 100 is stored in the variable 
C, the string GREAT! is stored in the variable P$, and variable 
A will have the value of one-half the value of B plus the value 
of H. 


line number NEXT <variable> 
80 NEXT I 


Terminates a loop begun by a FOR statement. The variable must 
be the same used in the corresponding FOR statement. In the 
example, line 80 will terminate the preceding statement: 45 FOR 
I = 2 TO 10 STEP 2. (See FOR above.) 


line number ON <expr> GOSUB <list of line numbers> 
30 ON X GOSUB 1000015000 


Branches to the subroutine at the line numbers indicated, based 
on the arithmetic value of an expression. In the example, the 
program will branch to the subroutine at line 10000 if X is 1 
and to the subroutine at 15000 if X is 2. If X is less than 1 or 
greater than 2, the statement immediately following the ON- 
GOSUB will be executed. 


line number ON <expr> GOTO <list of line numbers> 
40 ON X - Y GOTO 500,600;700 


Branches to the line numbers indicated, based on the arithmetic 
value of an expression. In the example, the program will branch 
to line 500 if X — Y has the value 1, line 600 if X — Y has the 
value 2, and line 700 if X — Y has the value 3. If X — Y is less 
than 1 or greater than 3, then the statement immediately follow- 
ing the ON-GOTO will be executed. 


line number PRINT <list of variables> 


890 PRINT "YOU GOT "S$N5s" QUESTIONS CORRECT" 


Causes the computer to advance the cursor to the next line on 
the screen and print the values of the specified variables or strings. 
If in the example N had the value 9, YOU GOT 9 QUESTIONS 
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READ 


RESTORE 


CORRECT would appear on the screen. See Section B.3, “Text 
Formatting Statements,” for more information. 


line number READ <list of variables> 
465 READ XV »Z 


Used in conjunction with the DATA statement to store data into 
variables within a program. When a READ statement is exe- 
cuted, the program will set the variables listed to the next suc- 
cessive values in the program's DATA statements. The example 
will take the next three values from the DATA statements and 
store them in X, Y, and Z, respectively. (See DATA above.) 


line number REM <message> 
10 REM PROGRAM BY IMA TEACHER 


Inserts a REMark into the program. The message only appears 
when the program is LISTed; the computer ignores all REMarks 
when the program is RUN. 


line number RESTORE 
360 RESTORE 


Returns the DATA list pointer to the first value of the first DATA 
statement, allowing the DATA to be reread. 


line number RETURN 
10450 RETURN 


Terminates a subroutine and returns execution to the next num- 
bered statement following the GOSUB which called the subrou- 
tine. (See GOSUB above.) 


B.2 GRAPHICS STATEMENTS 


COLOR 


line number COLOR = <expr> 
340 COLOR = 7 


Sets the color to be plotted in low-resolution graphics. The <expr> 
is an integer between O and 15 that represents the following 
colors: 


GR 


HCOLOR 


HGR 


HPLOT 
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line number GR 
BOO GR 


Switches the display on the screen to low-resolution graphics 
(40 x 40 points) with four lines of text at the bottom. Clears 
the graphics screen to black and sets COLOR = 0 (black). 


line number HCOLOR = <expr> 
460 HCOLOR = 1 


Sets the color to be plotted in high-resolution graphics. The 
<expr> is an integer between 0 and 7 that represents the fol- 
lowing colors: 


0 black 2 violet 4 black 6 blue 
] green 3 white 5 orange 7 white 


line number HGR 
390 HGR 


Switches the display on the screen to high-resolution graphics 
(280 x 160 points) with four lines of text at the bottom. Clears 
the graphics screen to black but does not change the value of 
HCOLOR. 


line number HLIN <X1>,<X2> AT <Y> 
1010 HLIN 5225 AT 20 


Draws a horizontal line on the low-resolution graphics screen 
at the y-axis position <Y> from the x-axis position <X1> to 
the x-axis position <X2>. The color will be that most recently 
set by the COLOR statement. In the example, a horizontal line 
will be drawn from X = 5 to X = 25 atY = 20. 


line number HPLOT <X>,<Y> 
line number HPLOT <X1]>,<Y1> TO <X2>,<Y2> 
line number HPLOT TO <X>,<Y> 


200 HPLOT 1007130 
210 HPLOT 0,0 TO 279:159 
220 HPLOT TO 150,710 


0 black 4 dark green 8 brown 12 green 
1 magenta 5 grey 9 orange 13. yellow 
2 dark blue 6 medium blue 10 grey 14 aqua 

3 purple 7 light blue 11 pink 15 white 
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PLOT 


SCRN 


TEXT 


VLIN 


Plots dots or lines on the high-resolution graphics screen using 
the color most recently set by the HCOLOR statement. The high- 
resolution screen uses an (X,Y) coordinate system with 0,0 in 
the upper left corner. In the first example, a dot will be plotted 
at X = 100, Y = 130. In the second example, a line will be 
plotted from X = 0, Y = O (upper left corner) to X = 279, 
Y = 159 (lower right corner). In the third example, a line will 
be plotted from the last point plotted to X = 150, Y = 10. 


line number PLOT <X>,<Y> 


275 PLOT 20:30 


Plots rectangular blocks on the low-resolution graphics screen 
using the color most recently set by the COLOR statement. The 
low-resolution screen uses an (X,Y) coordinate system with 0,0 
in the upper left corner and 39,39 in the lower right corner. The 
example will plot a block at X = 20, Y = 30. 


line number <var> = SCRN(<X>,<Y>) 


G20 2 = SCRN(2755) 


SCRN is the low-resolution graphics screen function that returns 
the color value of the graphic coordinates specified. In the exam- 
ple, Z will be set to the value of the color at X = 27, Y = 5. 


line number TEXT 
990 TEXT 


Sets the screen to the text mode of 24 lines of text with 40 
characters per line. TEXT does not clear the screen or HOME the 
cursor. 


line number VLIN <Y1>,<Y2> AT <xX> 
730 VLIN 0239 AT 20 


Draws a vertical line on the low-resolution graphics screen at 
the x-axis position <X> from the y-axis position <Y1> to the 
y-axis position <Y2>. The color will be that most recently set 
by the COLOR statement. In the example, a vertical line will be 
drawn from Y = Oto Y = 39 at X = 20. 


B.3 TEXT FORMATTING STATEMENTS 


COMMA (,) 


line number PRINT <var>,<var> 


370 PRINT QUANTITY +PRICE »TOTAL 


FLASH 


HOME 


HTAB 


INVERSE 


NORMAL 


POS 
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Used in a PRINT statement to space data into 16-column fields. 
In the example, the value of the variable QUANTITY will be 
printed in column 1, the value of the variable PRICE will be 
printed in column 17, and the value of the variable TOTAL will 
be printed in column 33. 


line number FLASH 


1500 FLASH 


Sets the text printing mode to flashing characters. All text printed 
after this statement will flash. NORMAL reverses this action. 


line number HOME 
10 HOME 


Clears the text screen and returns the cursor to the home posi- 
tion in the upper left corner. 


line number HTAB <expr> 
390 HTAB 27 


Moves the cursor to the specified column number (1 to 40). The 
HTAB statement is usually followed by a PRINT statement. In 
the example, the cursor will be moved to column 27. 


line number INVERSE 
345 INVERSE 


Sets the text printing mode to black-on-white characters instead 
of white on black. All text printed after this statement will be 
printed in inverse. NORMAL reverses this action. 


line number NORMAL 
610 NORMAL 


Sets the text printing mode to normal white-on-black charac- 
ters. Reverses the action of the FLASH and INVERSE statements. 


line number <var> = POS( <expr>) 
730 KX = POS(0) 


POS is the text function that returns the current horizontal cur- 
sor position (0 to 39). Although <expr> is required, the expres- 
sion has no effect on the results. In the example, X will be set 
to the current horizontal cursor position. 
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SEMICOLON (;) line number PRINT <string>;<var> 


SPC 


SPEED 


TAB 


840 PRINT "YOU GOT "SN5" CORRECT." 


Used in a PRINT statement to position the cursor immediately 
after the string or variable preceeding the semicolon. If N = 10 
in the example, the printed line would read: 


YOU GOT 10 CORRECT. 


line number PRINT <var>;SPC(<expr>);<var> 
480 PRINT AsSPC(10) 5B 


Used in a PRINT statement to insert a specified number of spaces 
between two variables when preceded and followed by semi- 
colons. In the example, the value of A will be printed, followed 
by 10 spaces and then the value of B. 


line number SPEED = <expr> 
160 SPEED = 200 


Sets the speed at which characters are printed on the screen. The 
default speed, 255, is the fastest system speed. Zero is the slowest 
speed. 


line number PRINT TAB(<expr>);<var> 
BO PRINT TAB(25)5R 


Used in a PRINT statement to move the cursor to the specified 
column, where | is the left margin and 40 is the right margin. 
TAB can only move the cursor to the right. Use HTAB to move 
the cursor to the left. In the example, the value of R will be 
printed starting in column 25. 


line number VTAB <expr> 
120 VTAB 18 


Moves the cursor to the specified line number. The top of the 
screen is line 1; while the bottom is line 24. The VIAB statement 
is usually followed by a PRINT statement. In the example, the 
cursor will be moved to line 18. 


B.4 SUMMARY OF VARIABLE TYPES 


INTEGER 


Variable name: Single letter (optionally followed by a single 
letter or digit) followed by the “%” character. 
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Range: —32767 to +3276/7. 
Examples: 1%, B2%, GH% 


Variable name: Single letter (optionally followed by a single 
letter or digit.) 


Range: —9.99999999 E+ 37 to +9.99999999 E+ 37 
Examples: S,R5, DE 


Variable name: Single letter (optionally followed by a single 
letter or digit) followed by the “$” character. 


Range: 0 to 255 characters 
Examples: F$, K9$, XY$. 


Note that variable names may be longer than two characters, 
but only the first two characters are significant. Consequently, 
APPLE and APPLIANCE are the same real variable, AP. 


B.5 SUMMARY OF OPERATORS 


ARITHMETIC 


LOGICAL 


RELATIONAL 


STRING 


+ addition 

/ division 

« exponentiation (raise to a power) 
* multiplication 

— subtraction or negation 


AND logical product 
NOT logical negation 
OR logical sum 


= equals 

> greater than 

>= greater than or equal to 
< less than 

<= less than or equal to 
<> not equal to 


+ concatenation 215 
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B.6 MATHEMATICAL FUNCTIONS 


ABS 


ATN 


Cos 


EXP 


INT 


LOG 


RND 


line number <var> = ABS(<expr>) 

100 K = ABS(-6.795) 

Returns the absolute value of <expr>. In the example, X = 
6.75. 

line number <var> = ATN(<expr>) 

100 KX = ATN(1) 

Returns the arctangent of <expr> in radians. In the example, 
X = .785398163. 

line number <var> = COS(<expr>) 

100 x = COS(1) 

Returns the cosine of <expr>. <expr> must be in radians. In 
the example, X = .540302306. 

line number <var> EXP(<expr>) 

100 X = EXP(1) 

Returns the value ea<expr>, where e = 2.7182828183. In 
the example, X = 2.71828183. 

line number <var> = INT (<expr>) 

100 X = INT (4.53) 

Returns the greatest integer in <expr> which is less than or 
equal to <expr>. In the example, X = 4. 

line number <var> = LOG(<expr>) 

100 X = LOG(2) 

Returns the natural logarithm of <expr>. In the example, X = 
693147181. 

line number <var> = RND(<expr>) 

100 K = RND(1) 


Returns a random number greater than or equal to O and less 
than 1. If <expr> is positive, a unique set of random numbers 
is generated. If <expr> is 0, then the last random number gen- 


SGN 


SIN 


SQR 


TAN 
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erated is returned. If <expr> is negative, the same set of random 
numbers will be generated every time the program is run. 

line number <var> = SGN(<expr>) 

100 K = SGN(-217,.456) 

Returns the sign of <expr>: +1 if positive, 0 if zero, and — 1 
if negative. In the example, X = —1. 

line number <var> = SIN(<expr>) 

100 X = SIN(1) 

Returns the sine of <expr>. <expr> must be in radians. In the 
example, X = .841470985. 

line number <var> = SQR(<expr>) 

100 K = SOR (16) 


Returns the square root of <expr>. In the example, X = 4. 


line number <var> = TAN(<expr>) 
100 K = TAN(1) 


Returns the tangent of <expr>. <expr> must be in radians. In 
the example, X = 1.55740772. 


B.7 STRING FUNCTIONS 


ASC 


CHRS$ 


LEFT$ 


line number <var> = ASC(<string>) 

100 K = ASC("APPLE") 

Returns the ASCII code for the first character in the string spe- 
cified. In the example, X = 65. 

line number <string> = CHR$(<expr>) 

100 KX$ = CHR$(65) 

Returns the ASCII character specified by the numerical value of 
<expr>. In the example, X$ = “A” 

line number <string> = LEFT$(<string>,<expr>) 


100 X$ = LEFTS( "APPLE" +3) 217 
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LEN 


MID$ 


RIGHTS 


STR$ 


VAL 


Returns a substring of <string> from the first character to the 
<expr>th character. In the example, X$ = “APP”. 


line number <var> = LEN(<string>) 

100 K = LENC"APPLE" ) 

Returns the number of characters contained in <string>. In the 
example, X = 5. 

line number <string> = MID$(<string>,<exprl>,<expr2>) 
100 X$ = MID$( "NOW IS THE TIME" +556) 


Returns the substring of <string> that begins with the character 
specified by <exprl> and has a length of <expr2> characters. 
In the example, X$ = “IS THE”. 


line number <string> = RIGHT$(<string>,<expr>) 

100 XS = RIGHTS( "APPLE" 52) 

Returns the substring of <string> consisting of the rightmost 
characters specified by <expr>. In the example, X$ = “LE”. 
line number <string> = STR$(<expr>) 

100 X$ = STR#$(24.07) 


Converts the <expr> to a string. In the example, X$ = “24.07”. 


line number <var> = VAL(<string>) 
100 K = VAL("365 DAYS") 


Converts the <string> to a real or integer variable. The con- 
version will terminate when a non-numeric character is encoun- 
tered. In the example, X = 365. 


B.8 BASIC AND DISK COMMANDS 


CATALOG 


CATALOG {,D<expr>} 
CATALOG »D2 


Prints a list of all the files on a diskette. Optionally the disk drive 
number, D<expr>, may be specified. In the example, a catalog 
of the diskette in drive two will be listed on the screen. 


DEL 


DELETE 


INIT 


LIST 


LOAD 
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DEL <line number>,<line number> 
DEL 350,400 


Deletes line numbers from the program in memory starting with 
the first line number specified and ending with the second line 
number specified. In the example, line 350, line 400, and all of 
the lines with numbers between 350 and 400 will be deleted. 


DELETE <file> {,D<expr>} {,V<expr>} 
DELETE BUTTERFLIES 


Erases a file from a diskette. Optionally, the drive number or 
volume number may be specified. In the example, the file BUT- 
TERFLIES will be erased from the diskette in the drive last used. 


INIT <file> {,D<expr>} {,V<expr>} 
INIT HELLO» V25 


Initializes a blank diskette so that it can be used. The current 
program in memory will be saved as the <file> specified, and 
that program will be run when the diskette is booted. Optionally, 
the drive number or volume number may be specified. In the 
example, the diskette in the drive most recently used will be 
initialized as volume 25 with the program in memory stored as 
HELLO. 


LIST {<line number>} {,<line number>} 


LIST 
LIST 300 
LIST 10002000 


Lists lines of the program in memory on the screen. Optionally, 
a line number or range of line numbers may be specified. In the 
first example, the entire program will be listed. In the second 
example, line 300 only will be listed. In the third example, lines 
1000 to 2000, inclusive, will be listed. 


LOAD <file> {,D<expr>} {,V<expr>} 
LOAD SNOW WHITE 


Loads the specified file from a diskette into memory. The current 
program in memory will be erased. Optionally, the drive number 
or volume number may be specified. In the example, the pro- 
gram SNOW WHITE will be loaded into memory from the disk 
most recently used. 


219 


Applesoft Language Summary 


220 


LOCK 


NEW 


PR 


RUN 


RENAME 


SAVE 


LOCK <file> {,D<expr>} {,V<expr>} 
LOCK MATH DRILL 


Protects a file from being replaced or deleted accidentally. The 
UNLOCK command will reverse the action. Optionally, the drive 
number or volume number may be specified. In the example, 
the file MATH DRILL will be LOCKed on the diskette in the 
drive most recently used. 


NEW 


Erases the program and variables currently in memory. Used to 
clear memory before writing a new program. 


PR#<expr> 


PR#G6 
PR#1 
PR#0 


Transfers output to the specified peripheral slot number. In the 
examples, PR#6 boots disk drive 1; PR#1 transfers all subse- 
quent output to a printer, assuming the printer interface is in 
slot 1; PR#0 returns output to the screen. 


RUN {<file>} {,D<expr>} {,V<expr>} 
RUN SPELL 


Executes the program in memory if no file is specified. If a file 
is specified, memory is cleared, the file is loaded from a diskette, 
and the program is executed. Optionally, the drive number or 
volume number may be specified. In the example, the program 
SPELL will be loaded from the most recently used disk drive 
and executed. 


RENAME <filel>,<file2> {,D<expr>} {,V<expr>} 
RENAME PROGRAM 1,MUSCLES 


Changes the name of <filel> to <file2> on a diskette. Option- 
ally, the drive number or volume number may be specified. In 
the example, PROGRAM | will be renamed MUSCLES on the 
diskette in the drive most recently used. 


SAVE <file> {,D<expr>} {,V<expr>} 
SAVE PICKLES 


UNLOCK 
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Saves the program currently in memory on diskette as the file 
specified. Optionally, the drive number or volume number may 
be specified. If the file specified already exists on the diskette, it 
will be replaced by the program in memory unless it was LOCKed. 
In the example, the program in memory will be saved with the 
name PICKLES on the diskette in the drive most recently used. 


UNLOCK <file> {,D<expr>} {,V<expr>} 
UNLOCK MATH DRILL 


Removes the accidental replace or delete lock on the file speci- 
fied. Optionally, the drive number or volume number may be 
specified. In the example, the file MATH DRILL will be unlocked 
on the diskette in the drive most recently used. 


B.9 SPECIAL KEYS 


ARROW KEYS 


CONTROL 
(CTRL) 


ESCAPE (ESC) 


LEFT ARROW (<) 
RIGHT ARROW (>) 


The two keys on the Apple keyboard marked with a left arrow 
and right arrow are used to edit programs. The LEFT ARROW 
is used to delete characters previously typed in the current line. 
The RIGHT ARROW will reenter a character on the screen as 
though you were typing it. 


CONTROL <key> 


CONTROL C 
CONTROL G 
CONTROL X 


The CONTROL key is used in conjunction with other keys to 
specify a variety of actions. To execute a CONTROL sequence, 
hold the CONTROL key down and then depress the other key. 
In the examples, CONTROL C will break the execution of a 
program and print the line number at which execution termi- 
nated, CONTROL G will sound a bell on the Apple speaker, and 
CONTROL X will delete the current line being typed. 


ESCAPE <key> 


ESCAPE I 
ESCAPE J 
ESCAPE K 
ESCAPE M 
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REPEAT (REPT) 


RESET 


The ESCAPE key is commonly used to edit programs. When the 
ESCAPE key is typed, the moveable-cursor mode is entered. The 
keys I, J, K, and M are used to move the cursor up, left, right, 
and down, respectively. Once the cursor is positioned, any key 
except I, J, K, and M will return to normal mode. The LEFT 
ARROW and RIGHT ARROW keys may then be used to make 
edits. 


REPEAT <key> 


When the REPEAT key is held down in conjunction with another 
key, the other key will be repeatedly typed. 


RESET 
CONTROL RESET 


The RESET key immediately halts the execution of a program 
and sets the screen to TEXT mode. If RESET is typed while a 
program is being saved on a diskette, the file may be damaged. 
For this reason, newer Apples have an internal switch which 
can be set to require the CONTROL key to be held down while 
typing RESET. 


B.10 ASCO CHARACTER CODES 


The following codes are used in the CHR$ and ASC functions: 


Code 


OmonN A UU hWN = © 


Character Code Character 
CTRL @ 48 0 
CTRL A 49 ] 
CTRL B 50 2 
CTRL C 51 3 
CTRL D 52 4 
CTRL E 53 5 
CTRL F 54 6 
CTRL G (bell) 55 7 
CTRL H (<) 56 8 
CTRL I 57 9 
CTRL J 58 : 
CTRL K 59 : 
CTRL L (form feed) 60 < 
CTRL M (return) 6] = 
CTRL N 62 > 
CTRL O 63 ? 


Code 


Character 


CTRL P 
CTRL Q 
CTRL R 
CTRL S 
CTRL T 
CTRL U (—) 
CTRL V 
CTRL W 
CTRL X 
CTRL Y 
CTRL Z 

ESC 

not available 
CTRL SHIFT M 
CTRL A 

not available 
SPACE 


~_—_ 


Code 


64 
65 
66 
67 
68 
69 
70 
7) 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 


93 
94 
95 
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Character 
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~ 
2) 
ted 


available 


J 
A 


not 
available 
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Appendix 


Answers to Selected 
Questions and Problems 


CHAPTER 1 & 10 PRINT "DEGREES CELSIUS" 
| 20 INPUT C 
Think About This (for Fun) 30 F = (C # 9/5) + 32 
40 PRINT Cs" DEGREES C = "$F" DEGREES F." 
One Word 50 END 
9. 10 PRINT "HOW MANY CUPS"; 
20 INPUT C 
Text Questions 30 PRINT "HOW MANY OUNCES" $ 
&O INPUT 2 
Section 1.5.3 The output would be “close packed” (printed v0 T= (8 * C) +2 
with no separating spaces). 60 PRINT Cs “ CUPS "3235" QUNCES = "3T35" 
TOTAL OUNCES." 
Section 1.5.5 The blank space is needed to separate the comma 70 END 


from the name (value of N$). Otherwise, the 


comma and name would be close packed, as in 10. 10 PRINT “FIRST NAME" i 


20 INPUT F$ 
HOWDY,SAMMY. 30 PRINT "LAST NAME"; 
40 INPUT L$ 
SO PRINT "HELLO» “SFSEs" "“SLSe"t"™ 
Posers and Problems 6O END 
I. 10 PRINT "HELLO" 
20 PRINT "WHAT‘S YOUR HEIGHT IN INCHES"$ CHAPTER 2 


30 INPUT H 

40 M = 2,54 # H 

SO PRINT "YOU ARE "3M3" CENTIMETERS TALL!" Think About This (for Fun) 
60 END 


2. 25, 4, 6, .66666667, 3 A chair, a bed, and a toothbrush. 


3. So that any output will be close packed. Commas cause 


the output to be tabbed 16 spaces before being printed. Text Questions 


4. The semicolon close packed the “?” printed by execu- 
tion of the INPUT statement (60). Section 2.3 INT(10 * .99999999 + 1) = 10 
INT(10* .01 + 1) = 1 


5. See Section 2.4 of Chapter 2. 
Range of INT(10 * RND(1) + 3) = 12 to 3 


6. NAME SCORE AVERAGE Range of INT(9901 * RND(1) + 100)/100 = 
<-16 spaces—><— 16 spaces > 100.00 to 1.00 
7. Enter and RUN the program. Range of INT(91 * RND(1) + 5) = 95to5 


224 


Posers and Problems 


10. 
I]. 


12. 


R is for numeric input (years) 
R$ is for string input (state name) 


There is no real difference. Random output would still 
be given. If X is 1, then 440 is PRINTED, and so on. 


Change the text of PRINT statements 400, 420, and 
440. 


Change PRINT statements 200 and 210 to ask for your 
age; change the “39” in statements 230--250 to your 
age. 


380 X = INT(S # RND(1) +1) 
390 ON X GOTO 400,420,440 ,452 5456 


4352 PRINT “HO-HO! NOT THAT OLD!" 
8354 GOTO 140 

456 PRINT "COME DOWN SOME!" 

458 GOTO 140 


70 PRINT “WHAT STATE IS THE THIRD" 
BO PRINT "LARGEST BY LAND AREA"; 
100 IF R$ = "CALIFORNIA" THEN 130 
110 PRINT "NO, IT‘S CALIFORNIA!" 
130 PRINT "RIGHT! 


1 PRINT "WHAT’S YOUR FIRST NAME" 
2 INPUT F$ 
510 PRINT »"BYE-BYE» 


X = INT(76 * RND(1) + 25) 


"SFOsri" 


29 to 5, inclusive 


10 PRINT "WHAT‘’S YOUR HEIGHT IN INCHES" § 

20 INPUT H 

30 IF H > 72 THEN 80 

40 IF H < 60 THEN 100 

5O PRINT 

60 PRINT "AVERAGE" 

70 GOTO 110 

BO PRINT "TALL" 

90 GOTO 110 

100 PRINT "SHORT" 

110 END 

10 PRINT "ENTER THREE SIDES (SEPARATED BY 
COMMAS) »" 

20 PRINT “WITH THE LONGEST SIDE ENTERED 
LAST" 

30 INPUT A»B.C 

40 IF A > C THEN 90 

50 IF B > C THEN 90 

60 IF (C * 2) = ((A * 2) + (B * 2)) THEN 
110 

70 PRINT "NOT A RIGHT TRIANGLE" 

B80 GOTO 120 

SO PRINT "LONGEST SIDE NOT ENTERED LAST!" 

100 GOTO 10 

110 PRINT "“THAT’S A RIGHT TRIANGLE!" 

120 END 


WHERE THE ORANGES GROW!" 


Answers to Selected Questions and Problems 


13. 10 PRINT "ENTER ANY NUMBER, 1-10, 
INCLUSIVE"; 
20 INPUT N 
30 A$ = "WAS ENTERED." 
40 IF N = 3 THEN 930 
50 IF N = 6 THEN 110 
60 IF N = 9 THEN 130 
70 PRINT "NEITHER 3, 6» OR FG "SAS 
80 GOTO 140 
SO PRINT “THREE "A$ 
100 GOTO 140 
110 PRINT "SIX "A$ 
120 GOTO 140 
1390 PRINT "NINE "A$ 
140 END 
CHAPTER 3 


Think About This (for Fun) 


In 


Text Questions 


Section 3.2.2. A new value (2) was READ and assigned to N 


Section 3.2.3 


at statement 60. 
ABC would be printed. 


A new value (DEF) was READ and assigned 
to N§ at statement 40. 


Use of commas (tabs) and semicolons (close 
packs). 


After statement 30 is executed, the data pointer 
is “past” the last data element. 


The error was caused by no DATA present to 
be READ (the data pointer is “past” the last 
element). 


Statement 60 increases X by | each time it is 
executed. When X is equal to 2 (statement 50), 
transfer is to statement 100 (END). 


The program would endlessly READ, PRINT, 
and RESTORE. 


Posers and Problems 


i. 


10 FOR Y = 


i TO 10 


10 DATA 1,"ABC" »"DEF” 


(or) 


20 READ N>NS$-N1 
30 PRINT N oN$>N1 
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Answers to Selected Questions and Problems 


DEL 60,70 

(or) 

5S RESTORE 

(or) 

10 DATA 4,5»657 


40 PRINT S$ °S 
SO NEXT I 
60 END 


5 T= 0 

42 T=T+S5S 

44 X = X + 1 

SS PRINT "THE AVERAGE SCORE IS "sT/X3"!" 


LOAD, RUN, and LIST program A354 from the text 
diskette. 


FOR X = 10 TO 1 STEP -1 starts at 10 and “counts” 
the loop to | in increments of — 1. 


The comma in statement 55 tabs 16 spaces before printing. 
The ”;” in statement 70 close packs the “tails” (* ). 


The 90 PRINT statement “cancels” the close packing of 
the semicolon in statement 70. 


10 PRINT "CELSIUS" »“FAHRENHEIT" 
20 PRINT “------- Lary ee eer " 
30 FOR C = O TO 100 STEP § 

40 F = 32 + (C # 9/5) 

90 PRINT CoF 

60 NEXT C 

70 END 


10 FOR I = 1 TO 10 

20 PRINT I" CUBED IS “$I * 3 
30 NEXT I 

40 END 


CHAPTER 4 


Think About This (for Fun) 


A 50-cent piece and a nickel (one of the coins is not a nickel— 
although the other one is!) 


Text Questions 


Section 4.2.1 N$(3) = PHIL; $(4) = 35; the two lists would 


be printed. 


The lists would be printed, but in reverse order 
(4 to 1). 


Section 4.2.2 S(1,1) = 95; S(3,2) = 93 
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For the complete program in Section 4.2.2, 
LOAD, RUN, and LIST program A422 on the 
text diskette. 


Section 4.2.2 


The comma in statements 65 and 81 are 
needed to tab before printing the first and sec- 
ond scores. The PRINT in 95 is needed to can- 
cel the tab effect of statement 81. 


Posers and Problems 


10 REM N$()=NAME$ S()=SEM.AVE.$3 F()SFINAL 
EXAM 

20 DIM N$(20) 1S(20) »F (20) 

30 FOR I = 1 TO 20 

40 READ N$(T) »S(I) sFC(T) 

90 PRINT N$(T) +S(I) FCT) 

60 NEXT I 


1000 REM DATA FOR 20 STUDENTS AND THEIR 
SCORES 
1010 DATA "JONES" 180,82, [etc.] 


2000 END 


10 REM N$()=NAME, S( » )=STUDENT SCORES 
20 DIM N$(25) +S(25 53) 

30 FOR I = 1 TO 25 

40 READ N$(I) 

SO FOR J = 1703 

60 READ S(I+J) 

70 NEXT J 

80 NEXT I 


1000 REM DATA FOR 25 STUDENTS» EACH WITH 
3 SCORES 
1010 DATA "ABEL" .95180,88» #etc.+ 


Three states would be randomly selected (with a random 
chance that one would be repeated). 


Three states would be randomly selected without any 
state being repeated. 


Five states would be printed without any repetition. Then 
the program becomes an endless loop, trying to find the 
sixth state not yet printed (FOR K = 1 TO 6) when only 
five states were given. 


3S F = 0 

25 H$ = “STEPHEN F. --?--" 

5S H$ = "DICK AND JANE’S DOG." 
212 IF F = 1 THEN 220 

2igd F =i1 

216 PRINT “HINT: “HS 

218 GOTO 200 

250 F = 0 

252 RETURN 


8. LOAD, RUN, and LIST program A458 on the text diskette. 


20 
30 
40 
50 
60 
70 
B80 


DIM 2(10) 

FOR I = 1 T0 4 

X = INT(10 # RND(L) + 1) 
IF 2(X) = 1 THEN 30 

Z2(X) = 1 

PRINT X 

NEXT I 

END 


CHAPTER 5 


Think About This (for Fun) 


The man opened one carton, took one package, opened it, and 
then dropped one cigarette overboard. This made the raft a 
cigarette lighter! 


Posers and Problems 


3 


2. See 
3. 10 


20 
30 
40 
90 
60 
70 
80 
30 


INPUT R$ 

IF R$ = AS THEN 260 

IF F = 1 THEN 300 

Feil 

PRINT H$ (Give a hint] 

GOTO 200 

IF F = 1 THEN 280 [Skip giving credit] 
C = C + 1 [Give credit] 

PRINT "VERY GOOD!" 

GOTO 310 

PRINT "A CORRECT ANSWER IS "AS 
RETURN 


statements 220—250 in the above program fragment. 


REM Q$()=QUESTIONS AS$()=ANSWER 5 
Z()=FLAG 

DIM O$(10) sA$(10) 12°10) 

FOR I = 1 TO 10 

READ Q$(1) ,AS$(T) 

NEXT I 

FOR Q = i T0 5 

X = INT(10 # RND(1) + 1) 

IF Z(X) = 1 THEN 70 

2(xX) = 1 


100 PRINT Q$(X) 


1000 REM DATA FOR 10 QUESTIONS» ANSWERS 
1010 DATA "QUESTION 1";"ANSWER 1">» [etc.] 
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Answers to Selected Questions and Problems 


2000 END 


5. LOAD, RUN, and LIST PROGRAM 16 from the text 
diskette. (PROGRAM 16 is an example program in 
Chapter 6.) 


CHAPTER 6 


Think About This (for Fun) 


There are 6 F's (the “of’s” are often overlooked). 


Text Questions 


Section 6.7.2 For five choices, make the following 
modifications: 


270 DIM AS$(5) sRS(D) 

5050 FOR I = 1705 

3110 PRINT “YOUR CHOICE (1-5)"% 
5150 IF R > S THEN 5110 


Then add additional data elements for each 
fifth choice and its response. 


CHAPTER 7 


Think About This (for Fun) 


SLEEPLESSNESS (as in programming) 


Posers and Problems 


I. 10 HGR 
20 HCOLOR = 3 
30 HPLOT 10,10 TO 100,100 
40 END 


440 REM PLOT SQUARE 

460 LET A = INT(RND(1) # 40) 
470 HLIN O1A AT O 

480 VLIN O»A AT 39 

490 HLIN A»O AT 39 

500 VLIN A:0 AT O 


910 NEXT I 
5320 END 
DEL 530,680 


3. The screen will change from text to high-resolution 
graphics, and the entire screen will be colored violet. 
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Answers to Selected Questions and Problems 


4. 10 
20 
30 
40 
50 
60 
70 
BO 


5. 10 
20 
30 
40 
90 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


6. 10 
20 
30 
40 
90 
60 
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HOME 

GR 

FOR I 0 TO 15 
COLOR I 
VLIN 0°39 AT 
VLIN 0,39 AT 
NEXT I 

END 


HOME 
GR 
COLOR = 6 
FOR Y = 0 TO 39 
HLIN 0/39 AT Y 
NEXT Y 
COLOR = 13 
FOR Y = 0 TO 38 STEP 2 
FOR X = 0 TO 38 STEP 2 
PLOT XY 
NEXT X 
NEXT Y 
FOR Y = 1 TO 39 STEP 2 
FOR X = 1 TO 39 STEP 2 
PLOT X»+Y 
NEXT X 
NEXT Y 
END 


HOME 

HGR 

HCOLOR = 3 

FOR Y = 0 TO 159 
X = SOR (Y¥) # 20 
HPLOT XY 


70 NEXT Y 
80 END 


or 


10 HOME 

20 HGR 

30 HCOLOR = 3 

35 HPLOT 0,70 

40 FOR Y = 1 TO 159 
SO X = SOR(Y) * 20 
60 HPLOT TO X+rY 

70 NEXT Y 

80 END 


CHAPTER 8 


Think About This (for Fun) 


50'2 + 49°%. = 100 


CHAPTER 9 


Think About This (for Fun) 


28 jumps (after 27 jumps, the frog is 3 feet from the top of the 
well; one more jump of 3 feet is needed). 
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Annotated Bibliography 


The periodicals listed in the following pages were selected from a more complete 
bibliography developed by Ron Adams of The College of New Caledonia in Mac- 
kenzie, British Columbia, Canada. These periodicals were judged by the authors 
as being most useful to the teacher using an Apple microcomputer in the class- 
room. The prices quoted are for one-year subscriptions taken out in Summer 
1982. (Note: Any comments found in the abstracts are those of Professor Adams 
and not the authors.) 


ADCIS NEWSLETTER U.S.A. $40 membership APPLE EDUCATION NEWS Free 


Computer Center CANADA $40 
Western Washington University 


Bellingham, WA 98255 


This newsletter is published every two months by 
the Association for the Development of Computer- 
Based Instructional Systems, one of the oldest and 
best-organized groups of post secondary computer- 
using educators. It has special-interest groups for 
those developing software for health education, 
home economics, mathematics, music, PLATO, ele- 
mentary and secondary schools, computer-based 
training, and the handicapped. ADCIS annually hosts 
one of the most important computers-in-education 
conferences, and publishes the quarterly Journal of 
Computer-Based Instruction, which provides some of 
the most scholarly articles in this field. 


APPLE ASSEMBLY LINE U.S.A. $12 
S-C Software CANADA $12 
Box 280300 


Dallas, TX 75228 


A monthly newsletter featuring beginners’ tutori- 
als, utility programs, and programming techniques 
in Apple assembly language. 


APPLE EDUCATORS’ NEWSLETTER 


Box 20485 
San Jose, CA 95106 


This newsletter, published occasionally by the Apple 
Corporation, is a useful source of information on 
the burgeoning Apple-based CAI programs being 
developed in American universities, colleges, and 
schools. It also contains the inevitable glowing per- 
formance accounts of the company’s educational 
software, as well as of the software being developed 
for the Apple by other companies. The newsletter 
is evidently intended for distribution in computer 
stores because there is no subscription information 
in it. 


U.S.A. $15 
9525 Lucerne Street CANADA $25 


Ventura, CA 93004 


The newsletter is published every two months by 
the Apple for the Teacher group, a California-based 
organization of elementary and high school teach- 
ers dedicated to sharing and developing educa- 
tional software reviews and information on CAI 
projects that don’t get coverage in the glossy mag- 


azines. Recommended. 
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APPLE ORCHARD 


APPLEGRAM 


BOUNTY 
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APPLE MAGAZINE Free 


10260 Bandley Drive 
Cupertino, CA 95014 


The Apple Corporation’s quarterly catalogue dis- 
guised as a magazine. It contains several short arti- 
cles lauding the Apple’s versatility as a personal and 
small-business computer, and provides an up-to- 
date listing of all hardware and software marketed 
by the company. It’s available at Apple dealers and 
usually is given free to potential customers. 


U.S.A. $15 
910A George Street CANADA $22.50 


Santa Clara, CA 95050 


The quarterly magazine of the International Apple 
Core, a loosely structured umbrella organization of 
200 Apple-user groups around the world. It con- 
tains useful utility programs, programming tips, short 
articles on computer literacy, a column on new 
products for the Apple, and an occasional inter- 
view—most of which are reprinted from member 
groups’ newsletters. For example, the Spring 1981 
issue contains an interview with Apple founder Steve 
Wozniak and a tutorial on text-formatting far supe- 
rior to the explanation in the Apple manuals. The 
optional $100 IAC club membership includes sub- 
scription to Apple Orchard, five diskettes of contrib- 
uted software, and a newsletter of technical notes 
on the Apple. 


CANADA $15 membership 
Apples B.C. Computer Society 

316-8055 Anderson Road 

Richmond, B.C. 

Canada V6Y 1S2 


The quarterly newsletter of the Apples B.C. Com- 
puter Society, which includes several of the prov- 
ince’s top microcomputer programmers. It contains 
software reviews, program listings, short articles on 
technical topics, buy-and-sell advertisements, club 
notices, and a list of programs that members con- 
tributed to a software library that can be bought for 
$10 a disk. 


U.S.A. $6 
17710 De Witt Avenue 
Morgan Hill, CA 95037 


A quarterly newsletter for special education teach- 
ers that includes a “computer corner” devoted to 


reviews of microcomputer software for the learning 
disabled. 


BYTE U.S.A. $19 


Box 590 CANADA $21 


Martinsville, NJ 08836 


Byte is McGraw-Hill’s monthly attempt to imitate 
the worst features of Scientific American and the Sears 
catalog. The articles are not only highly technical 
and frequently devoted to arcane subjects that will 
bewilder the small-systems user, but also buried in 
a blizzard of advertising that occasionally pushes 
this unexceptional magazine to 500 pages. Each 
issue has a theme (local network and data base 
management systems have been featured in recent 
months) and a do-it-yourself project by electronics 
wizard Steve Ciarcia. Indeed, Byte may well be the 
only microcomputer periodical that will appeal to 
computer professionals and hobbyists who have their 
basements crammed with gadgetry. Nonetheless, 
it’s the leading microcomputer journal and the 
advertisements will keep you abreast of the latest 
developments and all the new hardware in the field. 
I buy it for three reasons: Bytelines, which is Sol 
Libes’s fascinating analysis of news and rumors in 
the microcomputing industry; the Education Forum, 
which reports CAI projects at various American 
universities and colleges; and Robert Tinney’‘s 
remarkable covers, which will surely become 20th 
century classics. 


CALL-A.PPL.E. U.S.A. $40 membership 
304 Main Avenue South CANADA $40 
Suite 300 membership 


Renton, WA 98055 


Published nine times a year, Call-A.PPL.E. is the 
magazine of the oldest and most sophisticated of 
the Apple-users groups—the Apple Puget Sound 
Program Library Exchange. It is an excellent source 
of programming tips, utility program listings, soft- 
ware reviews, and product reports. Although it is 
geared to experienced users, beginners and experts 
alike may call a “hot line” for advice from 9 a.m. 
to 3 p.m. and 6 p.m. to 10 p.m. seven days a week. 
The hot line has saved me many hours of frustra- 
tion. I strongly recommend membership in Call- 
A.PPL.E. for serious Apple users. 


Subsequent years $15 


THE CATYLIST 


CLASSROOM COMPUTER NEWS 


COMPUKIDS 


COMPUTERTOWN USA! 


U.S.A. $12 
1259 El Camino Real 

Suite 275 

Menlo Park, CA 94025 


Published six times a year, The Catylist features arti- 
cles and reports on microcomputers in special 
education. 


U.S.A. $16 
Box 266 CANADA $21 


Cambridge, MA 02139 


Classroom Computer News is probably the best source 
of educational software reviews. My complimen- 
tary issue contained the following articles: “Com- 
puter literacy—What Should Schools Be Doing 
About It?”; “A School Administrator Looks at Vis- 
icalc”; “Special Tools for Special Needs”; “Pro- 
gramming 1—The Starting Gate”; “Word Proces- 
sors for Teachers”; “Microcomputers in the School 
Library's Future”; and “How Does the Computer 
Remember All That Stuff?” Highly recommended 
for teachers. 


U.S.A. $12 
Box 874 
Sedalia, MO 65301 


A monthly newsletter for children that contains 
stories, games, and contests that will appeal to jun- 
ior microcomputer enthusiasts. 


Donations 
Box E 
Menlo Park, CA 94025 


The monthly newsletter of a group of enthusiasts 
dedicated to promoting computer literacy in Menlo 
Park, California. Their projects include microcom- 
puter fairs, programming contests, and public dem- 
onstrations, as well as the installation of microcom- 
puters in public libraries. It’s a good source of ideas 
on grass-roots microcomputer uses. For example, 
the August 1981 issue has an article on raising funds 


CREATIVE COMPUTING 


CUE NEWSLETTER 
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puter-assisted instruction, and the impact of com- 
puters on curriculums. Apart from the usual arti- 
cles and software reviews, The Computing Teacher 
features reports on CAI projects, articles on instruc- 
tional design, and an assortment of calculator and 
microcomputer programming assignments that can 
be adapted to classroom use. Any teachers using a 
microcomputer should not be without this journal. 


U.S.A. $25 
Box 789-—M CANADA $30 


Morrison, NJ 07960 


If you plan to purchase only one magazine, this 
should be your choice. Creative Computing has all 
the types of articles, reviews, program listings, and 
columns usually appearing in other microcompu- 
ter monthlies, as well as a sense of humor: It’s 
sprinkled with cartoons, delightful pen-and-ink 
drawings, satirical pieces, short stories, puzzles, and 
even the occasional poem. Moreover, it’s not 
restricted to computer topics. Recent issues had an 
excellent series on effective writing techniques that 
any writer can use. The judgement of its editors, 
however, appears shortsighted: they rejected this 
critical bibliography with a typewritten form letter. 


U.S.A. $6 
Independence High School CANADA $8 
1776 Educational Park Drive 


San Jose, CA 95133 


Published every two months, this is the newsletter 
of California's computer-using educators, an 
enthusiastic group of several hundred elementary 
and high school teachers who have just started an 
educational software exchange. Members can buy 
several diskettes of modest educational programs 
for the Apple, PET, and TRS-80 for $10 a diskette. 
The newsletter outlines CUE’s many activities, and 
prints short but revealing software reviews from a 
teacher's viewpoint. It is a model for computer-using 
educators’ groups and is well worth the low mem- 
bership fee. 


for the purchase of microcomputers. EDUCATIONAL COMPUTER 


MAGAZINE U.S.A. $12 
Box 535 CANADA $20 
Cupertino, CA 95015 


THE COMPUTING TEACHER 
Computing Center 
Eastern Oregon State College 
La Grande,OR 97850 


Edited by David Moursund, a leading CAI educator, 
this journal focuses on teacher education, com- 


U.S.A. $14.50 
CANADA $20.00 


Educational Computer is a new magazine for teachers 
in schools, colleges, and universities. It is published 
every two months and features articles, reviews, 
editorials, and letters on educational topics. 
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EDUCATIONAL TECHNOLOGY 


ELECTRONIC LEARNING 


U.S.A. $49 
140 Sylvan Avenue CANADA $59 


Englewood Cliffs, NJ 07632 


A monthly periodical for audio-visual specialists 
and educators interested in the technological aspects 
of education. It consists mostly of indifferently edited 
research papers on arcane subjects written in aca- 
demic language by professors who must, even at 
the cost of clear expression, publish or perish. A 
noticeable exception is Gerald T. Gleason's survey 
of the use of microcomputers in education (March 
1981, pp. 7-18), which succinctly summarizes recent 
developments in the field. The editors of Educational 
Technology have recently discovered microcompu- 
ters and are devoting more and more coverage to 
their educational applications. This no doubt will 
be a boon to graduate students and the many edu- 
cation faculty members who judge scholarship by 
the number of footnotes per manuscript page. 


USA $19 
Scholastic Inc. 

Box 2001 

Englewood Cliffs, NJ 07632 


Electronic Learning is a colorful, easy-to-read mag- 
azine published eight times a year for teachers. 
Articles in recent issues include a nine-part primer 
on computers, a detailed outline of a course in 
computer literacy, a guide to purchasing microcom- 
puters, and a tutorial on evaluating educational 
software. It regularly features articles on the edu- 
cational potential of new products like the video- 
disc, acomprehensive directory of software houses, 
and lists of microcomputer courses offered in the 
United States. Reviews of educational software are 
short and often superficial, but teachers will find it 
a good source of ideas for classroom projects. It 
does not favor any brand of microcomputer. Every 
elementary and high school staff room should have 
a subscription. 


ILLINOIS SERIES ON THE EDUCATIONAL 
APPLICATIONS OF COMPUTERS U.S.A. 50¢ per paper 
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College of Education 
University of Illinois 
Urbana, IL 61801 


A series of academic papers “prepared as resources 
for the pre-service training of teachers under the 


INFOWORLD 


ITMA NEWSLETTER 


general theme of teaching with or about com- 
puters.” I’m not well enough informed in the teacher- 
training field to evaluate this comprehensive series. 
Some of the material may be dated, but no doubt 
it will be very useful to education faculty interested 
in adding computer-assisted instructional technol- 
ogy to their curriculums. 


U.S.A. $25 
Circulation Department CANADA $52 
375 Cochituate Road 


Framingham, MA 01701 


A weekly newspaper aimed at the personal and 
business microcomputer user that will keep you 
informed on the latest developments in the indus- 
try. The coverage is comprehensive and most arti- 
cles are free of jargon. Particularly valuable are its 
editorials and its many candid software reviews, 
many of which are for the Apple. Each issue has an 
extensive collection of classified ads as well as a 
delightful satire written by “Minnie Floppy.” Also 
revealing are its letters to the editor from irate peo- 
ple who have found that some of the much her- 
alded microcomputer products leave a great deal to 
be desired. This is the periodical that I look forward 
to receiving the most. 


Free, but send 
College of St. Mark and St. John $30 for postage 
Derriford Road 

Plymouth, PL6 8BH 

Great Britain 


The quarterly newsletter of the British Investiga- 
tions on Teaching with Microcomputers as an Aid, 
a rapidly growing group of British teachers dedi- 
cated to developing, evaluating, and promoting CAI 
materials. It features valuable material on CAI tech- 
niques, articles written by teachers, and educa- 
tional program listings in 380Z BASIC. The news- 
letter furnishes proof of Britain’s energetic promotion 
of the educational applications of microcomputers. 


JOURNAL OF COMPUTER-BASED 
INSTRUCTION 


See ADCIS 
Computer Center 

Western Washington University 

Bellingham, WA 98225 


The JCBI is the academic quarterly of Western 
Washington’s Association for the Development of 


JOURNAL OF COURSEWARE REVIEW 


Computer-Based Instructional Systems. The people 
who put it out assert that it publishes “original 
investigations and theoretical papers dealing with 
direct applications of computing to the problems of 
learning and instruction, design of curriculum, 
authoring languages and systems, and comparative 
curriculum structures for computer-based instruc- 
tion.” Contributors are urged to submit “empirical 
studies that use experimental procedures which will 
maximize the potential generalizability of out- 
comes.” Put that into your computer. 


JOURNAL OF COMPUTERS IN 
SCIENCE TEACHING 


U.S.A. $7 
Box 4825 
Austin, TX 78765 


Published quarterly by the Association for Com- 
puters in Science Teaching, this journal features 
research reports, tutorials, and software reviews 
pertinent to elementary and high school science 
teaching. 


U.S.A. $6.95 
Box 28426 
San Jose, CA 95159 


A collection of professional reviews of educational 
software for the Apple. It is published by the Foun- 
dation for the Advancement of Computer-aided 
Instruction (formerly the Apple Education Foun- 
dation), a non-profit organization that furnishes 
hundreds of thousands of dollars worth of micro- 
computer equipment each year to people who pro- 
pose innovative CAI projects. The first issue is $6.95, 
a modest price to pay to save you from purchasing 
poor software. 


MICRO U.S.A. $24 


Box 6502 CANADA $27 


Chelmsford, MA 01824 


A monthly for experienced APPLE, PET, OSI, TRS- 
80 Color, and KYM/SYN/AIM programmers. Each 
issue includes one or more useful utility programs 
for the Apple, but most of the content is devoted 
to the other microcomputers. However, Micro does 
have two features that make it worth the subscrip- 
tion price: a monthly annotated bibliography of 
articles in many microcomputer journals and a 
comprehensive directory of new software. 


MICROCOMPUTING 


NIBBLE 


PEELINGS II 


PERSONAL COMPUTERS 


Annotated Bibliography 


U.S.A. $25 
Box 977 CANADA $27 


Farmingdale, NY 11737 


Microcomputing is a comprehensive, carefully edited 
monthly noted for excellent articles on technical 
topics and for regular features on the microcom- 
puter industry, education, business, new products, 
and book reviews. Serious microcomputer users may 
prefer it to Creative Computing. Editor Wayne Green's 
perceptive monthly analysis of the industry is worth 
the price of Microcomputing. Highly recommended. 


U.S.A. $17.50 
Box 325 CANADA $18.00 


Lincoln, MA 01733 


A magazine for advanced Apple users. Each of the 
eight yearly issues features at least two major pro- 
gram listings for home, small-business, or enter- 
tainment use that can be typed into the Apple. It 
also contains a selection of program tips, hardware 
construction projects, and product reviews. The 
major listings may also be obtained on diskettes for 
$15 or less. Those who enjoy programming swear 
by Nibble, and no Apple owner should be without 
a subscription. Highly recommended. 


U.S.A. $21.00 
2260 Oleander Street CANADA $28.50 


Las Cruces, NM 88004 


A privately published collection of comprehensive 
reviews of Apple II software. Reviewers Edward 
Burlbaw, Howard de St. Germain, John Metallaro, 
and John Mitchener don’t mince words: if the pro- 
gram is a lemon, they will tell you. What’s more, 
they provide information on the capabilities of soft- 
ware that other reviewers miss. Each program is 
given a letter grade for any comparison, and adver- 
tising is accepted only from companies who are 
making quality software. Peelings II is undoubtedly 
the most useful single reference for the Apple owner. 
The review of word processing software in the July 
issue is itself worth a two-year subscription. It is 
published nine times a year. 


U.S.A. $1.75 an issue 
1 Fawcett Place 
Greenwich, CT 06830 


Mechanix Illustrated's quarterly magazine on micro- 
computers. It is designed for newsstand sale (sub- 
scription information wasn't given in the first two 
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PERSONAL COMPUTING 


PIPELINE 


POPULAR COMPUTING 
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issues) and the articles and product reviews are brief 
and easy to read, but rather superficial. 


U.S.A. $18 
Circulation Department CANADA $26 
1050 Commonwealth Avenue 


Boston, MA 02215 


A well-designed, easy-to-read montly with articles 
on varied topics and regular columns on business, 
education, computer chess, computer bridge, and 
the future of computing. Since it used to have a 
slight bias toward the TRS-80, it was originally not 
high on my recommended list for Apple owners; 
but recent issues have improved so much under 
editor David Gabel that Personal Computing may soon 
rival the leaders. 


U.S.A. $25 membership 
Conduit 

Box 388 

Iowa City, IA 52244 


A semi-annual report of the University of Iowa’s 
CONDUIT organization, a U.S.A. government-sup- 
ported project designed to develop, evaluate, and 
market computer-assisted instructional materials for 
higher education. Members of CONDUIT receive 
Pipeline, a CAI authoring guide, and brochures on 
new post-secondary CAI materials, some of which 
are available for the Apple, PET, and TRS-80. Pipe- 
line contains several short articles on CAI research, 
as well as a catalogue of $50 disk-based programs 
in biology, chemistry, economics, education, geog- 
raphy, psychology, sociology, humanities, manage- 
ment, mathematics, physics, political science, and 
statistics. Recommended. 


U.S.A. $15 
(formerly ONCOMPUTING) CANADA $18 
70 Main Street 


Peterborough, NH 03458 


McGraw-Hill’s new monthly is aimed at magazine- 
stand browsers and new microcomputer owners. It 
contains easy-to-read reviews and articles on 
microcomputers, peripheral devices, software, and 
new products—all of which are lavishly illustrated 
with color photographs and diagrams. It is proba- 
bly the best magazine for beginners. 


SCHOOL MICROWARE DIRECTORY 


SCHOOL MICROWARE REVIEW 


SOFTALK 


U.S.A. $20 
Dresden Associates CANADA $20 
Box 246 


Dresden, MA 04342 


A typewritten quarterly catalogue of educational 
software available for the major microcomputers. 
Entries are listed by subject and grade level ranging 
from Kindergarten to Grade 12. Unfortunately, the 
programs are not reviewed, and anyone purchasing 
educational software sight unseen can expect to be 
disappointed. 


U.S.A. $30 
Dresden Associates CANADA $30 
Box 246 


Dresden, MA 04342 


For $30 more than the cost of their preceding direc- 
tory, Dresden Associates will send you two issues 
of educational software reviews solicited from sub- 
scribers. One would expect such reviews to appear 
in Dresden’s School Microware Directory; thus, the 
publication of a separate newsletter appears to be 
an attempt to separate educators from their limited 
computer funds. 


SCIENTIFIC AMERICAN U.S.A. $21 
Box 5959 
New York, NY 10017 


This leading scientific monthly occasionally pub- 
lishes highly technical but well-illustrated articles 
on microelectronics that are worth searching out. 
Silicon-chip technology was thoroughly explained 
in the issues of May 1975 and September 1977; the 
super-conducting Josephson Junction was featured 
in the May 1980 issue; disk-storage technology was 
described in the August 1980 issue; and the new 
“supercomputers” were discussed in the January 
1982 issue. 


U.S.A. $24 
11021 Magnolia Boulevard CANADA $24 


North Hollywood, CA 91601 


An excellent monthly that features chatty articles 
on the people in the microcomputer industry, a lively 
readers’ forum, a programming contest page that 
will encourage submissions from Apple users of all 
ages, a revealing disk-jockey-style list of best-sell- 
ing programs for the Apple. Highly recommended. 


SOFTSIDE 


TECHNOLOGY ILLUSTRATED 


U.S.A. $24 
Box 68 CANADA $32 
Milford, NH 03055 


A monthly devoted largely to printed-games soft- 
ware for the Apple, PET, TRS-80, and Atari micro- 
computers. It also has tips for advanced 
programmers. 


TALMIS NEWSLETTER 


115 North Oak Park Avenue 
Oak Park, IL 60301 


A Neilson-rating-style newsletter of educational 
software reviews scheduled to begin publication in 
August 1982. 


U.S.A. $9.95 
Box 2804 CANADA $15.00 


Boulder, CO 80321 


A lavishly illustrated new magazine designed to 
explain technological developments to the layman. 
Like Science Digest, the magazine it imitates, Téch- 
nology Illustrated covers a wide range of topics. The 
first issue (October/November 1981) starts with an 
article on the history of computers and concludes 
with a note on the zany wartime research of B. F 
Skinner, who is described as “the best-known sci- 
entist of our time.” I liked it. The photographs were 
ideal for my introductory lecture on the history of 
computing, and I still consider B. E Skinner's Beyond 
Freedom and Dignity to be one of the most impor- 
tant books ever written, even if he did get his start 
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trying to train pigeons to operate the controls of a 
guided missile. Teachers will probably find Téchnol- 
ogy Illustrated a good source of classroom ideas. 


U.S.A. $15 
Box 992 CANADA $23 


Acton, MD 20172 


A journal published every two months subtitled 
Technology Horizons in Education for school admin- 
istrators by Information Synergy Inc. of Acton, 
Maryland. It contains short reviews of new equip- 
ment and erudite articles on the theoretical and 
practical applications of technological advances in 
education at all levels. Complimentary subscrip- 
tions are available to senior administrators. I rec- 
ommend it for educational planners and graduate 
students in education. 


WASHINGTON APPLE PI 


Box 34511 
Bethesda, MD 20817 


The monthly newsletter of the large Apple users 
group in the Washington, D.C. area. A collection 
of their best articles 1980—1981 is available for $7.50. 


235 


A 


ABS 119, 216 
Algorithm 186 
Alphanumeric variable, defined 
APPLE II 
operation of 199-201 
typical system 8, 197 
Arrays 
one-dimensional 46 
two-dimensional 47 


BASIC commands 
defined 9 
summarized 218-221 

BASIC statements 
defined 9 
summarized 207-214 

Batch access 7 

Booting up 5, 200—204 


C 


CATALOG 163, 218 
CHAIN 1 (program) 160-161 
CHAIN 2 (program) 160-162 
Chaining 159 
Chip 197 
CHRS$(4) 84, 86, 159 
Codes 
ASCIE 222-223 
control 221 
Coin flipping 89 
COLOR 168, 210 


10 


Index 


Color, use of 179 
Color codes 
high-resolution 174 
low-resolution 169 
Commas, use of 10, 212 
Computer-assisted instruction (CAI) 1 
Computer-based instruction, 
applications 1, 75-164 
Computer system, primary units 7 
Computer use, brief history, rationale 
for 5 
Control-C 33, 205, 221 
Control-D 84, 86, 159 


D 


DATA-READ 32, 69, 209, 210 
DEL 15, 25, 219 
DELETE 23, 25, 219 
Designing instructional materials 2, 184 
guidelines 194-196 
Development of instructional 
materials 2, 185-196 
DIM 56, 207 
Disk drive 199 
Disk operating system (DOS) 199 
Diskette 
care of 203 
initializing 201 
Drill and practice 1, 88, 91,94, 102 


E 


E notation 25 
Editing 15, 221 
END 12, 207 


237 


Index 


238 


F 


FLASH 78, 113, 213 
FOR-NEXT 33, 70, 207, 208 
Functions 21, 216-218 


G 


GET 124, 135, 146, 207 
GOSUB-RETURN 57, 71, 208, 210 
GOTO 20, 67, 72, 208 
GR 168, 211 
Graphics 168 
high-resolution 172 
low-resolution 168 


H 


HCOLOR 173, 211 
HGR 173, 211 
HLIN 170, 21] 
HOME = 32, 213 
HPLOT 174, 211 
HTAB 213 


IF-THEN 20, 67, 72, 208 

INIT 201, 219 

INPUT 11, 67, 72, 208 

Instructional computing 1 

Instructional sequence 
considerations 188-189 

INT 21, 22, 216 

Interactive access 7 

INVERSE 96, 126, 139, 213 

ISLAND (program) 139 


K 


KEYWORD (program fragment 
subroutine) 154, 157-159 

KEYWORD DEMO (program) 156 

Keyword subroutine 153 


L 


LET 12, 66, 72, 209 
LIST 13, 24, 25, 219 
LOAD 23, 24, 219 
LOCK 220 
Loops 33 

nested 48 


M 


MENU (program) 160 
Multiple statements per line 102 


N 


NEW 13, 22, 24, 220 
NORMAL _ 78, 96, 113, 126, 139, 213 
Numeric variable, defined 10, 214-215 


O 


Objectives 
chapter 5-6, 19, 31, 45, 65, 75, 167, 
183, 191 
examples of 187-188 
ON-GOSUB_ 209 
ON-GOTO 21, 68, 72, 209 
Operators 215 


P 


PLOT 169, 212 


POS 213 

Powering up 5, 200, 204 
PR 86, 220 

PRINT 11, 66, 72, 219 
Printer 200 


use of 203-204 
Problem solving 1, 77, 79, 83 
PROGRAM 1 12 
PROGRAM 2 22 
PROGRAM 3. 25 
PROGRAM 4 34 


PROGRAM 5 39 
PROGRAM 6 49 
PROGRAM 7 53 
PROGRAM 8 57 
PROGRAM 9 77 
PROGRAM 10 79 
PROGRAM 11 83 
PROGRAM 12 88 
PROGRAM 13 91 
PROGRAM 14 94 
PROGRAM 15 102 
PROGRAM 16 106 
PROGRAM 17 109 
PROGRAM 18 116 
PROGRAM 19 119 
PROGRAM 20 123 
PROGRAM 21 134 
PROGRAM 22 139 
PROGRAM 23 144 
PROGRAM 24 149 
PROGRAM 25 171 
PROGRAM 26 175 


R 


RAM 8, 197, 198, 199, 206 
Random numbers 21, 22, 102 
Random selection 56 

questions 53, 91-92, 96 
Rationale 185 

examples of 185-187 
RECORD INITIALIZER (program) 
REM 20, 76, 210 
RENAME 220 
Renaming programs 
RESTORE 33,210 
RND(1) 21, 22, 216 
ROM 197, 198 
RUN 13, 22, 24, 220 


39, 220 


83 


Index 


S 


SAVE 13, 23, 25, 220 
Scientific notation 25 
Screen display 13 


SCRN 212 
Semicolons, use of 11, 214 
Simulation I, 122, 123, 134, 139 


Slots 199, 206 
SOCKS (program) 
Sorting 134 
SPC 213 
SPEED 43, 214 
String variable, defined 
Systems approach 184 
discussion of steps 185-193 


154-156 


10, 215 


T 


TAB 26, 214 

Television (monitor) 199 

Testing 1, 144, 149 

TEXT 170, 212 

Text files 83 

Truncate, defined 20 

Tutorial dialog 1, 105, 106, 109, 
116, 119 


U 


UNLOCK 221 


V 
Variables, defined 9 


VLIN 170, 212 
VTAB_ 175, 214 


239 


AN APPLE 
FOR THE TEACHER 


Fundamentals of Instructional 
Computing 


George Culp Herbert Nickles 


37 6 0300 
ISBN O-534-01378-3 


